pascal/lazarus-ccr
1
0
Fork 0
Code Issues Releases Activity

* Removed unused variables

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@2354 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
loesje_
2012-03-19 13:45:20 +00:00
parent 3d88234802
commit ffbc7d0761
1 changed files with 0 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files

3
applications/idlparser/idlparser.pas
View File

@ -158,7 +158,6 @@ type TParseState = (psBegin,
var var
PriorState: TParseState; PriorState: TParseState;
ParseState: TParseState; ParseState: TParseState;
LineNr: integer;
IDLString: string; IDLString: string;
pCurrent: pchar; pCurrent: pchar;
AWord: string; AWord: string;
@ -192,8 +191,6 @@ var
end; end;
function CheckStartWord(ASetParseState, ASetPriorParseState: TParseState; AllowMinus: boolean = false): boolean; function CheckStartWord(ASetParseState, ASetPriorParseState: TParseState; AllowMinus: boolean = false): boolean;
var
c: char;
begin begin
result := false; result := false;
wordchars:=['a'..'z','A'..'Z','0'..'9','_']; wordchars:=['a'..'z','A'..'Z','0'..'9','_'];