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

* allow ^ after nil

Browse Source
This commit is contained in:
peter 2002-09-16 19:06:14 +00:00
parent a431bf27a0
commit 76eb5b4a1f
1 changed files with 10 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
compiler/pexpr.pas
View File

@ -1980,6 +1980,12 @@ implementation
begin begin
consume(_NIL); consume(_NIL);
p1:=cnilnode.create; p1:=cnilnode.create;
{ It's really ugly code nil^, but delphi allows it }
if token in [_CARET] then
begin
again:=true;
postfixoperators(p1,again);
end;
end; end;
else else
@ -2248,7 +2254,10 @@ implementation
end. end.
{ {
$Log$ $Log$
Revision 1.80 2002-09-07 15:25:07 peter Revision 1.81 2002-09-16 19:06:14 peter
* allow ^ after nil
Revision 1.80 2002/09/07 15:25:07 peter
* old logs removed and tabs fixed * old logs removed and tabs fixed
Revision 1.79 2002/09/07 12:16:03 carl Revision 1.79 2002/09/07 12:16:03 carl