paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2026-02-19 19:16:30 +01:00
Code Issues Packages Projects Releases Wiki Activity

* fixed compilation with -dPREPROCWRITE

Browse Source
This commit is contained in:
Nikolay Nikolov 2026-02-18 12:01:22 +02:00
parent 4fd3922aa4
commit 6677b2ffcd
1 changed files with 2 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
compiler/parser.pas
View File

@ -342,7 +342,7 @@ implementation
repeat
current_scanner.readtoken(true);
preprocfile.AddSpace;
case token of
case current_scanner.token of
_ID :
begin
preprocfile.Add(current_scanner.orgpattern);
@ -383,12 +383,11 @@ implementation
_EOF :
break;
else
preprocfile.Add(tokeninfo^[token].str)
preprocfile.Add(tokeninfo^[current_scanner.token].str)
end;
until false;
{ free scanner }
current_scanner.free;
current_scanner := nil;
set_current_scanner(nil);
{ close }
preprocfile.free;