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

* fixed parsing of $if preproc function

Browse Source
This commit is contained in:
peter 2000-06-09 21:35:37 +00:00
parent 14d248a322
commit b427a13613
1 changed files with 8 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
compiler/scanner.pas
View File

@ -1700,6 +1700,9 @@ exit_label:
preprocpat:=readid;
readpreproc:=_ID;
end;
'}' : begin
readpreproc:=_END;
end;
'(' : begin
readchar;
readpreproc:=_LKLAMMER;
@ -1816,7 +1819,10 @@ exit_label:
end.
{
$Log$
Revision 1.111 2000-05-03 14:36:58 pierre
Revision 1.112 2000-06-09 21:35:37 peter
* fixed parsing of $if preproc function
Revision 1.111 2000/05/03 14:36:58 pierre
* fix for tests/test/testrang.pp bug
Revision 1.110 2000/04/08 20:18:53 michael
@ -1907,4 +1913,4 @@ end.
* directives are allowed in (* *)
* fixed parsing of (* between conditional code
}
}