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

* Xtensa: trgcpu.do_spill_op fixed

Browse Source 
* cleanup

git-svn-id: trunk@46820 -
This commit is contained in:
florian 2020-09-09 21:08:04 +00:00
parent 27b4f3df60
commit ddf26cb3d2
2 changed files with 3 additions and 13 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
compiler/xtensa/cpupi.pas
View File

@ -200,7 +200,7 @@ unit cpupi;
end
else
begin
{ a frame pointer would be only needed if we do an " alloca" }
{ a frame pointer would be only needed if we do an "alloca" }
RS_FRAME_POINTER_REG:=RS_A15;
NR_FRAME_POINTER_REG:=NR_A15;
end;

14
compiler/xtensa/rgcpu.pas
View File

@ -41,7 +41,6 @@ unit rgcpu;
end;
trgintcpu=class(trgcpu)
procedure add_cpu_interferences(p: tai); override;
end;
@ -117,9 +116,9 @@ implementation
tmpref.offset:=spilltemp.offset mod 256;
helpins:=taicpu.op_reg_ref(op,tempreg,tmpref);
if getregtype(tempreg)=R_INTREGISTER then
ungetregisterinline(helplist,hreg);
helplist.concat(helpins);
if (getregtype(tempreg)=R_INTREGISTER) and not(isload) then
ungetregisterinline(helplist,hreg);
list.insertlistafter(pos,helplist);
helplist.free;
end
@ -130,13 +129,4 @@ implementation
end;
procedure trgintcpu.add_cpu_interferences(p: tai);
var
i, j: longint;
begin
if p.typ=ait_instruction then
begin
end;
end;
end.