diff options
| author | florian <florian@3ad0048d-3df7-0310-abae-a5850022a9f2> | 2020-09-09 21:08:04 +0000 |
|---|---|---|
| committer | florian <florian@3ad0048d-3df7-0310-abae-a5850022a9f2> | 2020-09-09 21:08:04 +0000 |
| commit | 8f8362f45787a9c6f280d899c7f4870b8c9fe9ab (patch) | |
| tree | 4bb372e0faa73517b71df2f1898a8cc7973a0b85 /compiler/xtensa | |
| parent | 555b822f29f99f2fdc5ff0e01bab37c197fd462e (diff) | |
| download | fpc-8f8362f45787a9c6f280d899c7f4870b8c9fe9ab.tar.gz | |
* Xtensa: trgcpu.do_spill_op fixed
* cleanup
git-svn-id: https://svn.freepascal.org/svn/fpc/trunk@46820 3ad0048d-3df7-0310-abae-a5850022a9f2
Diffstat (limited to 'compiler/xtensa')
| -rw-r--r-- | compiler/xtensa/cpupi.pas | 2 | ||||
| -rw-r--r-- | compiler/xtensa/rgcpu.pas | 14 |
2 files changed, 3 insertions, 13 deletions
diff --git a/compiler/xtensa/cpupi.pas b/compiler/xtensa/cpupi.pas index 29b2ae8a7e..f438823ca8 100644 --- a/compiler/xtensa/cpupi.pas +++ b/compiler/xtensa/cpupi.pas @@ -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; diff --git a/compiler/xtensa/rgcpu.pas b/compiler/xtensa/rgcpu.pas index e2e39277c2..94aa6f496b 100644 --- a/compiler/xtensa/rgcpu.pas +++ b/compiler/xtensa/rgcpu.pas @@ -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. |