mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-08-14 09:49:35 +02:00
* first_pi now just generates a constant, added missing calls to firstpass()
This commit is contained in:
parent
afdfcc6eb5
commit
6592c96e70
@ -2247,7 +2247,8 @@ implementation
|
|||||||
begin
|
begin
|
||||||
{ we need a valid node, so insert a nothingn }
|
{ we need a valid node, so insert a nothingn }
|
||||||
result:=cnothingnode.create;
|
result:=cnothingnode.create;
|
||||||
end
|
firstpass(result);
|
||||||
|
end
|
||||||
else
|
else
|
||||||
begin
|
begin
|
||||||
registers32:=left.registers32;
|
registers32:=left.registers32;
|
||||||
@ -2277,12 +2278,8 @@ implementation
|
|||||||
|
|
||||||
function tinlinenode.first_pi : tnode;
|
function tinlinenode.first_pi : tnode;
|
||||||
begin
|
begin
|
||||||
{ create the call to the helper }
|
result := crealconstnode.create(pi,pbestrealtype^);
|
||||||
first_pi := ccallnode.createintern('fpc_pi',nil);
|
firstpass(result);
|
||||||
{ now left is nil, nothing left, so no second pass
|
|
||||||
required.
|
|
||||||
}
|
|
||||||
left := nil;
|
|
||||||
end;
|
end;
|
||||||
|
|
||||||
|
|
||||||
@ -2295,6 +2292,7 @@ implementation
|
|||||||
{ now left is nil, nothing left, so no second pass
|
{ now left is nil, nothing left, so no second pass
|
||||||
required.
|
required.
|
||||||
}
|
}
|
||||||
|
firstpass(result);
|
||||||
left := nil;
|
left := nil;
|
||||||
end;
|
end;
|
||||||
|
|
||||||
@ -2307,6 +2305,7 @@ implementation
|
|||||||
{ now left is nil, nothing left, so no second pass
|
{ now left is nil, nothing left, so no second pass
|
||||||
required.
|
required.
|
||||||
}
|
}
|
||||||
|
firstpass(result);
|
||||||
left := nil;
|
left := nil;
|
||||||
end;
|
end;
|
||||||
|
|
||||||
@ -2319,6 +2318,7 @@ implementation
|
|||||||
{ now left is nil, nothing left, so no second pass
|
{ now left is nil, nothing left, so no second pass
|
||||||
required.
|
required.
|
||||||
}
|
}
|
||||||
|
firstpass(result);
|
||||||
left := nil;
|
left := nil;
|
||||||
end;
|
end;
|
||||||
|
|
||||||
@ -2331,6 +2331,7 @@ implementation
|
|||||||
{ now left is nil, nothing left, so no second pass
|
{ now left is nil, nothing left, so no second pass
|
||||||
required.
|
required.
|
||||||
}
|
}
|
||||||
|
firstpass(result);
|
||||||
left := nil;
|
left := nil;
|
||||||
end;
|
end;
|
||||||
|
|
||||||
@ -2343,6 +2344,7 @@ implementation
|
|||||||
{ now left is nil, nothing left, so no second pass
|
{ now left is nil, nothing left, so no second pass
|
||||||
required.
|
required.
|
||||||
}
|
}
|
||||||
|
firstpass(result);
|
||||||
left := nil;
|
left := nil;
|
||||||
end;
|
end;
|
||||||
|
|
||||||
@ -2355,6 +2357,7 @@ implementation
|
|||||||
{ now left is nil, nothing left, so no second pass
|
{ now left is nil, nothing left, so no second pass
|
||||||
required.
|
required.
|
||||||
}
|
}
|
||||||
|
firstpass(result);
|
||||||
left := nil;
|
left := nil;
|
||||||
end;
|
end;
|
||||||
|
|
||||||
@ -2367,6 +2370,7 @@ implementation
|
|||||||
{ now left is nil, nothing left, so no second pass
|
{ now left is nil, nothing left, so no second pass
|
||||||
required.
|
required.
|
||||||
}
|
}
|
||||||
|
firstpass(result);
|
||||||
left := nil;
|
left := nil;
|
||||||
end;
|
end;
|
||||||
|
|
||||||
@ -2376,7 +2380,10 @@ begin
|
|||||||
end.
|
end.
|
||||||
{
|
{
|
||||||
$Log$
|
$Log$
|
||||||
Revision 1.87 2002-09-07 20:42:16 carl
|
Revision 1.88 2002-09-08 13:01:25 jonas
|
||||||
|
* first_pi now just generates a constant, added missing calls to firstpass()
|
||||||
|
|
||||||
|
Revision 1.87 2002/09/07 20:42:16 carl
|
||||||
* cardinal -> longword
|
* cardinal -> longword
|
||||||
|
|
||||||
Revision 1.86 2002/09/07 12:16:04 carl
|
Revision 1.86 2002/09/07 12:16:04 carl
|
||||||
|
Loading…
Reference in New Issue
Block a user