paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-24 00:21:02 +02:00
Code Issues Packages Projects Releases Wiki Activity

* inline more aggressively, if the ie for the initial change re-appears, it must be fixed differently

Browse Source 
git-svn-id: trunk@47057 -
This commit is contained in:
florian 2020-10-06 19:43:16 +00:00
parent 722e8d94cd
commit ab9fa2012b
1 changed files with 1 additions and 12 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
compiler/ncal.pas
View File

@ -5203,18 +5203,7 @@ implementation
inlineinitstatement:=nil; inlineinitstatement:=nil;
inlinecleanupstatement:=nil; inlinecleanupstatement:=nil;
{ we cannot replace the whole block by a single assignment if the call n:=optimize_funcret_assignment(inlineblock);
has an init/cleanup block
we could though (not yet done), convert this into a bew block
consisting of the init code, the single assignment and the cleanup block
This might even enable new transformations }
if not(assigned(callinitblock)) and not(assigned(callcleanupblock)) then
{ if all that's left of the inlined function is an constant assignment
to the result, replace the whole block with the constant only }
n:=optimize_funcret_assignment(inlineblock)
else
n:=nil;
if assigned(n) then if assigned(n) then
begin begin
inlineblock.free; inlineblock.free;