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

* fix spilling on sparc64 if the offset must be built by sethi/or/xor

Browse Source 
git-svn-id: trunk@37159 -
This commit is contained in:
florian 2017-09-09 19:36:52 +00:00
parent 8315c660f4
commit 074ef98535
1 changed files with 22 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

22
compiler/sparcgen/rgcpu.pas
View File

@ -104,6 +104,7 @@ implementation
else
hreg:=cg.getintregister(helplist,OS_ADDR);
{$ifdef SPARC}
reference_reset(tmpref,sizeof(pint),[]);
tmpref.offset:=spilltemp.offset;
tmpref.refaddr:=addr_high;
@ -111,6 +112,16 @@ implementation
tmpref.refaddr:=addr_low;
helplist.concat(taicpu.op_reg_ref_reg(A_OR,hreg,tmpref,hreg));
{$else SPARC}
if (spilltemp.offset>=-4294967296) and (spilltemp.offset<=-1) then
begin
helplist.concat(taicpu.op_const_reg(A_SETHI,(not(aint(spilltemp.offset)) shr 10) and $3fffff,hreg));
if (aint(spilltemp.offset) and aint($3ff)) or aint($1c00)<>0 then
helplist.concat(taicpu.op_reg_const_reg(A_XOR,hreg,(aint(spilltemp.offset) and aint($3ff)) or aint($1c00),hreg));
end
else
Internalerror(2017090901);
{$endif SPARC}
reference_reset_base(tmpref,hreg,0,sizeof(aint),[]);
tmpref.index:=spilltemp.base;
@ -140,6 +151,7 @@ implementation
else
hreg:=cg.getintregister(helplist,OS_ADDR);
{$ifdef SPARC}
reference_reset(tmpref,sizeof(aint),[]);
tmpref.offset:=spilltemp.offset;
tmpref.refaddr:=addr_high;
@ -147,6 +159,16 @@ implementation
tmpref.refaddr:=addr_low;
helplist.concat(taicpu.op_reg_ref_reg(A_OR,hreg,tmpref,hreg));
{$else SPARC}
if (spilltemp.offset>=-4294967296) and (spilltemp.offset<=-1) then
begin
helplist.concat(taicpu.op_const_reg(A_SETHI,(not(aint(spilltemp.offset)) shr 10) and $3fffff,hreg));
if (aint(spilltemp.offset) and aint($3ff)) or aint($1c00)<>0 then
helplist.concat(taicpu.op_reg_const_reg(A_XOR,hreg,(aint(spilltemp.offset) and aint($3ff)) or aint($1c00),hreg));
end
else
Internalerror(2017090901);
{$endif SPARC}
reference_reset_base(tmpref,hreg,0,sizeof(aint),[]);
tmpref.index:=spilltemp.base;