paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-25 15:09:22 +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; preprocpat:=readid;
readpreproc:=_ID; readpreproc:=_ID;
end; end;
'}' : begin
readpreproc:=_END;
end;
'(' : begin '(' : begin
readchar; readchar;
readpreproc:=_LKLAMMER; readpreproc:=_LKLAMMER;
@ -1816,7 +1819,10 @@ exit_label:
end. end.
{ {
$Log$ $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 * fix for tests/test/testrang.pp bug
Revision 1.110 2000/04/08 20:18:53 michael Revision 1.110 2000/04/08 20:18:53 michael
@ -1907,4 +1913,4 @@ end.
* directives are allowed in (* *) * directives are allowed in (* *)
* fixed parsing of (* between conditional code * fixed parsing of (* between conditional code
} }