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

* fixed ARM register allocation problem when additional register is used for spilling.

Browse Source 
git-svn-id: trunk@5659 -
This commit is contained in:
yury 2006-12-21 14:18:03 +00:00
parent 27213c6873
commit 496e19c9c2
1 changed files with 6 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

15
compiler/arm/rgcpu.pas
View File

@ -53,7 +53,6 @@ unit rgcpu;
procedure trgcpu.do_spill_read(list:TAsmList;pos:tai;const spilltemp:treference;tempreg:tregister);
var
helpins: tai;
tmpref : treference;
helplist : TAsmList;
l : tasmlabel;
@ -86,13 +85,11 @@ unit rgcpu;
if spilltemp.index<>NR_NO then
internalerror(200401263);
helpins:=spilling_create_load(tmpref,tempreg);
helplist.concat(helpins);
if pos=nil then
list.insertlistafter(list.first,helplist)
else
list.insertlistafter(pos.next,helplist);
helplist.concat(spilling_create_load(tmpref,tempreg));
if getregtype(tempreg)=R_INTREGISTER then
ungetregisterinline(helplist,hreg);
list.insertlistafter(pos,helplist);
helplist.free;
end
else
@ -102,7 +99,6 @@ unit rgcpu;
procedure trgcpu.do_spill_written(list:TAsmList;pos:tai;const spilltemp:treference;tempreg:tregister);
var
helpins: tai;
tmpref : treference;
helplist : TAsmList;
l : tasmlabel;
@ -139,7 +135,8 @@ unit rgcpu;
if getregtype(tempreg)=R_INTREGISTER then
ungetregisterinline(helplist,hreg);
list.insertlistafter(pos,helplist)
list.insertlistafter(pos,helplist);
helplist.free;
end
else
inherited do_spill_written(list,pos,spilltemp,tempreg);