mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-08-18 22:09:28 +02:00
* remove non needed parathesys as in 1.140
This commit is contained in:
parent
3b092352e1
commit
3c79b466b7
@ -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
|
||||||
|
Loading…
Reference in New Issue
Block a user