paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-20 07:29:18 +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; errorexit;
begin begin
result:=nil; result:=nil;
(*
{$ifdef NODEINLINE}
if (procdefinition.proccalloption=pocall_inline) and if (procdefinition.proccalloption=pocall_inline) and
{ can we inline this procedure at the node level? } { can we inline this procedure at the node level? }
(tprocdef(procdefinition).inlininginfo^.inlinenode) then (tprocdef(procdefinition).inlininginfo^.inlinenode) then
@ -2078,10 +2079,11 @@ type
begin begin
createblock := internalstatements(createstatement); createblock := internalstatements(createstatement);
deleteblock := internalstatements(deletestatement); deleteblock := internalstatements(deletestatement);
inlinelocals:=tlist.create;
{ replace complex parameters with temps } { replace complex parameters with temps }
createinlineparas(createstatement,deletestatement); createinlineparas(createstatement,deletestatement);
{ replace the parameter loads with the parameter values } { replace the parameter loads with the parameter values }
foreachnode(result,replaceparaload,@fileinfo); foreachnode(result,@replaceparaload,@fileinfo);
{ free the temps for the locals } { free the temps for the locals }
for i := 0 to inlinelocals.count-1 do for i := 0 to inlinelocals.count-1 do
if assigned(inlinelocals[i]) then if assigned(inlinelocals[i]) then
@ -2103,7 +2105,7 @@ type
exit; exit;
end; end;
end; end;
*) {$endif NODEINLINE}
{ calculate the parameter info for the procdef } { calculate the parameter info for the procdef }
if not procdefinition.has_paraloc_info then if not procdefinition.has_paraloc_info then
@ -2404,7 +2406,10 @@ begin
end. end.
{ {
$Log$ $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 * fixed varargs
* replaced dynarray with tlist * replaced dynarray with tlist