* remove non needed parathesys as in 1.140

This commit is contained in:
mazen 2004-10-15 10:35:23 +00:00
parent 3b092352e1
commit 3c79b466b7

View File

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