paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-05 12:58:20 +02:00
Code Issues Packages Projects Releases Wiki Activity

* improve complexity calculation for tempref nodes

Browse Source
This commit is contained in:
florian 2025-02-15 21:41:57 +01:00
parent 7cb2e5a180
commit d87ba06608
1 changed files with 7 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
compiler/nutils.pas
View File

@ -730,10 +730,16 @@ implementation
result:=2; result:=2;
exit; exit;
end; end;
temprefn:
begin
if (ttemprefnode(p).tempinfo^.typedef.needs_inittable) or
not(ti_may_be_in_reg in ttemprefnode(p).tempflags) then
result := 1;
exit;
end;
rttin, rttin,
setconstn, setconstn,
stringconstn, stringconstn,
temprefn,
loadvmtaddrn, loadvmtaddrn,
{ main reason for the next one: we can't take the address of } { main reason for the next one: we can't take the address of }
{ loadparentfpnode, so replacing it by a temp which is the } { loadparentfpnode, so replacing it by a temp which is the }