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

Fix ignoring directives.

Browse Source
This commit is contained in:
Rika Ichinose 2022-01-07 17:06:09 +03:00
parent bac7142256
commit a1411d437a
1 changed files with 2 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
compiler/scanner.pas
View File

@ -359,6 +359,7 @@ implementation
*****************************************************************************} *****************************************************************************}
const const
DirectiveIgnored=pointer(1);
{ use any special name that is an invalid file name to avoid problems } { use any special name that is an invalid file name to avoid problems }
preprocstring : array [preproctyp] of string[7] preprocstring : array [preproctyp] of string[7]
= ('$IFDEF','$IFNDEF','$IF','$IFOPT','$ELSE','$ELSEIF'); = ('$IFDEF','$IFNDEF','$IF','$IFOPT','$ELSE','$ELSEIF');
@ -4527,7 +4528,7 @@ type
end end
else else
begin begin
current_scanner.ignoredirectives.Add(hs,nil); current_scanner.ignoredirectives.Add(hs,DirectiveIgnored);
Message1(scan_w_illegal_directive,'$'+hs); Message1(scan_w_illegal_directive,'$'+hs);
end; end;
{ conditionals already read the comment } { conditionals already read the comment }