paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2026-01-08 11:01:41 +01:00
Code Issues Packages Projects Releases Wiki Activity

* MIPS register spilling: relocations are not needed to load constant values, and offset limit is 32767, not 4095.

Browse Source 
git-svn-id: trunk@23675 -
This commit is contained in:
sergei 2013-02-28 20:43:38 +00:00
parent 8bce7058fc
commit 1421998752
1 changed files with 6 additions and 16 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

22
compiler/mips/rgcpu.pas
View File

@ -95,7 +95,7 @@ implementation
helplist : tasmlist;
hreg : tregister;
begin
if abs(spilltemp.offset)>4095 then
if abs(spilltemp.offset)>32767 then
begin
helplist:=tasmlist.create;
@ -104,13 +104,8 @@ implementation
else
hreg:=cg.getintregister(helplist,OS_ADDR);
reference_reset(tmpref,sizeof(aint));
tmpref.offset:=spilltemp.offset;
tmpref.refaddr:=addr_high;
helplist.concat(taicpu.op_reg_ref(A_LUI,hreg,tmpref));
tmpref.refaddr:=addr_low;
helplist.concat(taicpu.op_reg_reg_ref(A_ADDIU,hreg,hreg,tmpref));
helplist.concat(taicpu.op_reg_const(A_LUI,hreg,spilltemp.offset shr 16));
helplist.concat(taicpu.op_reg_reg_const(A_ORI,hreg,hreg,spilltemp.offset and $FFFF));
helplist.concat(taicpu.op_reg_reg_reg(A_ADDU,hreg,hreg,spilltemp.base));
reference_reset_base(tmpref,hreg,0,sizeof(aint));
@ -131,7 +126,7 @@ implementation
helplist : tasmlist;
hreg : tregister;
begin
if abs(spilltemp.offset)>4095 then
if abs(spilltemp.offset)>32767 then
begin
helplist:=tasmlist.create;
@ -140,13 +135,8 @@ implementation
else
hreg:=cg.getintregister(helplist,OS_ADDR);
reference_reset(tmpref,sizeof(aint));
tmpref.offset:=spilltemp.offset;
tmpref.refaddr:=addr_high;
helplist.concat(taicpu.op_reg_ref(A_LUI,hreg,tmpref));
tmpref.refaddr:=addr_low;
helplist.concat(taicpu.op_reg_reg_ref(A_ADDIU,hreg,hreg,tmpref));
helplist.concat(taicpu.op_reg_const(A_LUI,hreg,spilltemp.offset shr 16));
helplist.concat(taicpu.op_reg_reg_const(A_ORI,hreg,hreg,spilltemp.offset and $FFFF));
helplist.concat(taicpu.op_reg_reg_reg(A_ADDU,hreg,hreg,spilltemp.base));
reference_reset_base(tmpref,hreg,0,sizeof(aint));