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

* update used_in_proc only in trgobj.translate_registers, before it might cause unnecessary pushes of actually unused registers

Browse Source 
git-svn-id: trunk@33526 -
This commit is contained in:
florian 2016-04-15 21:30:14 +00:00
parent f634387394
commit 2a28f5a85d
1 changed files with 2 additions and 3 deletions

5
compiler/rgobj.pas
View File

@ -1465,7 +1465,6 @@ unit rgobj;
reginfo[n].colour:=c;
found:=true;
supregset_include(colourednodes,n);
include(used_in_proc,c);
break;
end;
end;
@ -1478,8 +1477,6 @@ unit rgobj;
n:=coalescednodes.buf^[i-1];
k:=get_alias(n);
reginfo[n].colour:=reginfo[k].colour;
if reginfo[k].colour<first_imaginary then
include(used_in_proc,reginfo[k].colour);
end;
end;
@ -1806,6 +1803,8 @@ unit rgobj;
else
begin
u:=reginfo[getsupreg(reg)].colour;
include(used_in_proc,u);
{$ifdef EXTDEBUG}
if u>=maxreginfo then
internalerror(2015040501);