paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-12 16:09:25 +02:00
Code Issues Packages Projects Releases Wiki Activity

+ support 64 bit sar on sparc64

Browse Source 
* fix on sparc64 broken a_cmp_const_reg_label and a_cmp_reg_reg_label

git-svn-id: trunk@36661 -
This commit is contained in:
florian 2017-07-07 10:11:44 +00:00
parent 1f4d6e8a4d
commit 8401a460e5
1 changed files with 6 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
compiler/sparcgen/cgsparc.pas
View File

@ -695,6 +695,10 @@ implementation
list.concat(taicpu.op_reg_const_reg(A_SRA,dst,32-(tcgsize2size[size]*8),dst)); list.concat(taicpu.op_reg_const_reg(A_SRA,dst,32-(tcgsize2size[size]*8),dst));
src2:=dst; src2:=dst;
end end
{$ifdef SPARC64}
{ allow 64 bit sar on sparc64 without ie }
else if size in [OS_64,OS_S64] then
{$endif SPARC64}
else if not (size in [OS_32,OS_S32]) then else if not (size in [OS_32,OS_S32]) then
InternalError(2013070306); InternalError(2013070306);
end; end;
@ -814,9 +818,8 @@ implementation
if size in [OS_64,OS_S64] then if size in [OS_64,OS_S64] then
a_jmp_cond64(list,cmp_op,l) a_jmp_cond64(list,cmp_op,l)
else else
{$else SPARC64}
a_jmp_cond(list,cmp_op,l);
{$endif SPARC64} {$endif SPARC64}
a_jmp_cond(list,cmp_op,l);
end; end;
@ -827,9 +830,8 @@ implementation
if size in [OS_64,OS_S64] then if size in [OS_64,OS_S64] then
a_jmp_cond64(list,cmp_op,l) a_jmp_cond64(list,cmp_op,l)
else else
{$else SPARC64}
a_jmp_cond(list,cmp_op,l);
{$endif SPARC64} {$endif SPARC64}
a_jmp_cond(list,cmp_op,l);
end; end;