mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-08-17 03:19:29 +02:00
- removed copying of all paras when secondpassing a callnode (this used
to be necessary for inlinign support, but currently the whole inlined procedure is already copied in advance). Note that the compiler crashes when compiling ucomplex with -dTEST_INLINE (also after fixing the syntax errors), but that was also the case before this change.
This commit is contained in:
parent
10d28cc837
commit
e206a74439
@ -841,9 +841,8 @@ implementation
|
|||||||
if not assigned(procdefinition) then
|
if not assigned(procdefinition) then
|
||||||
exit;
|
exit;
|
||||||
|
|
||||||
{ Deciding whether we may still need the parameters happens next (JM) }
|
|
||||||
if assigned(left) then
|
if assigned(left) then
|
||||||
params:=left.getcopy
|
params:=left
|
||||||
else
|
else
|
||||||
params := nil;
|
params := nil;
|
||||||
|
|
||||||
@ -1190,13 +1189,6 @@ implementation
|
|||||||
pp:=tbinarynode(pp.right);
|
pp:=tbinarynode(pp.right);
|
||||||
end;
|
end;
|
||||||
|
|
||||||
{ Parameters are not needed anymore }
|
|
||||||
if assigned(params) then
|
|
||||||
begin
|
|
||||||
params.free;
|
|
||||||
params:=nil;
|
|
||||||
end;
|
|
||||||
|
|
||||||
if inlined then
|
if inlined then
|
||||||
begin
|
begin
|
||||||
if (resulttype.def.size>0) then
|
if (resulttype.def.size>0) then
|
||||||
@ -1422,7 +1414,14 @@ begin
|
|||||||
end.
|
end.
|
||||||
{
|
{
|
||||||
$Log$
|
$Log$
|
||||||
Revision 1.44 2003-04-10 17:57:52 peter
|
Revision 1.45 2003-04-21 13:53:16 jonas
|
||||||
|
- removed copying of all paras when secondpassing a callnode (this used
|
||||||
|
to be necessary for inlinign support, but currently the whole inlined
|
||||||
|
procedure is already copied in advance). Note that the compiler crashes
|
||||||
|
when compiling ucomplex with -dTEST_INLINE (also after fixing the
|
||||||
|
syntax errors), but that was also the case before this change.
|
||||||
|
|
||||||
|
Revision 1.44 2003/04/10 17:57:52 peter
|
||||||
* vs_hidden released
|
* vs_hidden released
|
||||||
|
|
||||||
Revision 1.43 2003/04/06 21:11:23 olle
|
Revision 1.43 2003/04/06 21:11:23 olle
|
||||||
|
Loading…
Reference in New Issue
Block a user