You've already forked lazarus-ccr
* Removed unused variables
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@2354 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
@ -158,7 +158,6 @@ type TParseState = (psBegin,
|
||||
var
|
||||
PriorState: TParseState;
|
||||
ParseState: TParseState;
|
||||
LineNr: integer;
|
||||
IDLString: string;
|
||||
pCurrent: pchar;
|
||||
AWord: string;
|
||||
@ -192,8 +191,6 @@ var
|
||||
end;
|
||||
|
||||
function CheckStartWord(ASetParseState, ASetPriorParseState: TParseState; AllowMinus: boolean = false): boolean;
|
||||
var
|
||||
c: char;
|
||||
begin
|
||||
result := false;
|
||||
wordchars:=['a'..'z','A'..'Z','0'..'9','_'];
|
||||
|
Reference in New Issue
Block a user