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

* remove non needed parathesys as in 1.140

Browse Source
This commit is contained in:
mazen 2004-10-15 10:35:23 +00:00
parent 3b092352e1
commit 3c79b466b7
1 changed files with 6 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
compiler/pstatmnt.pas
View File

@ -589,7 +589,7 @@ implementation
end;
end;
if try_to_consume(_COMMA) then
right:=_with_statement
right:=_with_statement()
else
begin
consume(_DO);
@ -620,7 +620,7 @@ implementation
{ try to recover from error }
if try_to_consume(_COMMA) then
begin
hp:=_with_statement;
hp:=_with_statement();
if (hp=nil) then; { remove warning about unused }
end
else
@ -638,7 +638,7 @@ implementation
function with_statement : tnode;
begin
consume(_WITH);
with_statement:=_with_statement;
with_statement:=_with_statement();
end;
@ -1055,7 +1055,7 @@ implementation
if token in endtokens then
tlabelnode(p).left:=cnothingnode.create
else
tlabelnode(p).left:=statement;
tlabelnode(p).left:=statement();
{ be sure to have left also resulttypepass }
resulttypepass(tlabelnode(p).left);
end
@ -1206,9 +1206,8 @@ implementation
end.
{
$Log$
Revision 1.142 2004-10-15 09:14:17 mazen
- remove $IFDEF DELPHI and related code
- remove $IFDEF FPCPROCVAR and related code
Revision 1.143 2004-10-15 10:35:23 mazen
* remove non needed parathesys as in 1.140
Revision 1.141 2004/09/27 15:15:52 peter
* register loopvarsym for fields instead of record variable