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

* more MIPS64 fixes

Browse Source
This commit is contained in:
florian 2022-06-10 23:20:26 +02:00
parent 1e3c5865de
commit 4149562787
1 changed files with 6 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
compiler/mips/cgcpu.pas
View File

@ -456,10 +456,10 @@ begin
list.concat(taicpu.op_reg_const(A_LUI, reg, aint(a) shr 48));
if ((a shr 32) and aint($FFFF))<>0 then
list.concat(taicpu.op_reg_reg_const(A_ORI,reg,reg,(a shr 32) and aint($FFFF)));
list.concat(taicpu.op_reg_const(A_SLL, reg, 16));
list.concat(taicpu.op_reg_reg_const(A_SLL, reg, reg, 16));
if ((a shr 16) and aint($FFFF))<>0 then
list.concat(taicpu.op_reg_reg_const(A_ORI,reg,reg,(a shr 16) and aint($FFFF)));
list.concat(taicpu.op_reg_const(A_SLL, reg, 16));
list.concat(taicpu.op_reg_reg_const(A_SLL, reg, reg, 16));
if (a and aint($FFFF))<>0 then
list.concat(taicpu.op_reg_reg_const(A_ORI,reg,reg,a and aint($FFFF)));
{$endif mips64}
@ -937,6 +937,10 @@ begin
inc(a,32-tcgsize2size[size]*8);
src:=dst;
end
{$ifdef MIPS64}
else if (size in [OS_64,OS_S64]) then
list.concat(taicpu.op_reg_reg_const(A_DSRA,dst,src,a))
{$endif MIPS64}
else if not (size in [OS_32,OS_S32]) then
InternalError(2013070303);
list.concat(taicpu.op_reg_reg_const(A_SRA,dst,src,a));