paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-07 22:47:59 +02:00
Code Issues Packages Projects Releases Wiki Activity

* enabled pass1 inlining from Jonas

Browse Source
This commit is contained in:
peter 2004-11-22 22:19:00 +00:00
parent ffc095ee05
commit 576e1825aa
1 changed files with 10 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

15
compiler/ncal.pas
View File

@ -2055,7 +2055,8 @@ type
errorexit;
begin
result:=nil;
(*
{$ifdef NODEINLINE}
if (procdefinition.proccalloption=pocall_inline) and
{ can we inline this procedure at the node level? }
(tprocdef(procdefinition).inlininginfo^.inlinenode) then
@ -2078,10 +2079,11 @@ type
begin
createblock := internalstatements(createstatement);
deleteblock := internalstatements(deletestatement);
inlinelocals:=tlist.create;
{ replace complex parameters with temps }
createinlineparas(createstatement,deletestatement);
{ replace the parameter loads with the parameter values }
foreachnode(result,replaceparaload,@fileinfo);
{ replace the parameter loads with the parameter values }
foreachnode(result,@replaceparaload,@fileinfo);
{ free the temps for the locals }
for i := 0 to inlinelocals.count-1 do
if assigned(inlinelocals[i]) then
@ -2103,7 +2105,7 @@ type
exit;
end;
end;
*)
{$endif NODEINLINE}
{ calculate the parameter info for the procdef }
if not procdefinition.has_paraloc_info then
@ -2404,7 +2406,10 @@ begin
end.
{
$Log$
Revision 1.262 2004-11-22 22:01:19 peter
Revision 1.263 2004-11-22 22:19:00 peter
* enabled pass1 inlining from Jonas
Revision 1.262 2004/11/22 22:01:19 peter
* fixed varargs
* replaced dynarray with tlist