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

* Minor bugfix in $IFOPT

Browse Source
This commit is contained in:
olle 2004-09-12 20:46:58 +00:00
parent 0bf14e759f
commit bb684d007d
1 changed files with 5 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
compiler/scanner.pas
View File

@ -308,6 +308,7 @@ implementation
found : boolean; found : boolean;
state : char; state : char;
begin begin
found:= false;
current_scanner.skipspace; current_scanner.skipspace;
hs:=current_scanner.readid; hs:=current_scanner.readid;
if (length(hs)>1) then if (length(hs)>1) then
@ -3266,7 +3267,10 @@ exit_label:
end. end.
{ {
$Log$ $Log$
Revision 1.87 2004-08-22 23:16:06 olle Revision 1.88 2004-09-12 20:46:58 olle
* Minor bugfix in $IFOPT
Revision 1.87 2004/08/22 23:16:06 olle
+ added flag to TMacro denoting mac style compiler variable + added flag to TMacro denoting mac style compiler variable
* fixed $DEFINEC * fixed $DEFINEC
* improved robustness of macro facility * improved robustness of macro facility