paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-08 10:48:12 +02:00
Code Issues Packages Projects Releases Wiki Activity

* ignoredirectives changed to tfphashlist

Browse Source 
git-svn-id: trunk@5907 -
This commit is contained in:
peter 2007-01-11 21:52:53 +00:00
parent a526430509
commit 2bc3bd8c4f
1 changed files with 4 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
compiler/scanner.pas
View File

@ -100,7 +100,7 @@ interface
comment_level,
yylexcount : longint;
lastasmgetchar : char;
ignoredirectives : tstringlist; { ignore directives, used to give warnings only once }
ignoredirectives : TFPHashList; { ignore directives, used to give warnings only once }
preprocstack : tpreprocstack;
in_asm_string : boolean;
@ -1698,7 +1698,7 @@ In case not, the value returned can be arbitrary.
lasttoken:=NOTOKEN;
nexttoken:=NOTOKEN;
lastasmgetchar:=#0;
ignoredirectives:=TStringList.Create;
ignoredirectives:=TFPHashList.Create;
in_asm_string:=false;
end;
@ -2396,9 +2396,7 @@ In case not, the value returned can be arbitrary.
exit;
end;
if hs='' then
begin
Message1(scan_w_illegal_switch,'$'+hs);
end;
Message1(scan_w_illegal_switch,'$'+hs);
{ Check for compiler switches }
while (length(hs)=1) and (c in ['-','+']) do
begin
@ -2445,7 +2443,7 @@ In case not, the value returned can be arbitrary.
end
else
begin
current_scanner.ignoredirectives.insert(hs);
current_scanner.ignoredirectives.Add(hs,nil);
Message1(scan_w_illegal_directive,'$'+hs);
end;
{ conditionals already read the comment }