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

Merge branch 'vihash' into 'main'

Browse Source 
Draft: cclasses.TFPHashList revamp.

See merge request freepascal.org/fpc/source!132
This commit is contained in:
Rika 2025-04-03 21:50:11 +03:00
commit 9dca53b502
2 changed files with 637 additions and 534 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1168
compiler/cclasses.pas
View File

File diff suppressed because it is too large Load Diff

3
compiler/scanner.pas
View File

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