paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-12-16 00:30:44 +01:00
Code Issues Packages Projects Releases Wiki Activity

fix infinite spilling on m68k, patch by Florian, additional IE workaround by me, based on a similar hack in the ARM cg...

Browse Source 
git-svn-id: trunk@26465 -
This commit is contained in:
Károly Balogh 2014-01-15 02:09:02 +00:00
parent 70f9b098e0
commit 587acf6452
1 changed files with 5 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
compiler/rgobj.pas
View File

@ -1389,7 +1389,7 @@ unit rgobj;
colourednodes : Tsuperregisterset;
adj_colours:set of 0..255;
found : boolean;
tmpr: tregister;
begin
spillednodes.clear;
{Reset colours}
@ -1413,7 +1413,10 @@ unit rgobj;
if supregset_in(colourednodes,a) and (reginfo[a].colour<=255) then
include(adj_colours,reginfo[a].colour);
end;
if regtype=R_INTREGISTER then
{ FIXME: temp variable r is needed here to avoid Internal error 20060521 }
{ while compiling the compiler. }
tmpr:=NR_STACK_POINTER_REG;
if regtype=getregtype(tmpr) then
include(adj_colours,RS_STACK_POINTER_REG);
{Assume a spill by default...}
found:=false;