diff --git a/compiler/sparcgen/cgsparc.pas b/compiler/sparcgen/cgsparc.pas index 4e688f6f9d..4d5867f740 100644 --- a/compiler/sparcgen/cgsparc.pas +++ b/compiler/sparcgen/cgsparc.pas @@ -695,6 +695,10 @@ implementation list.concat(taicpu.op_reg_const_reg(A_SRA,dst,32-(tcgsize2size[size]*8),dst)); src2:=dst; 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 InternalError(2013070306); end; @@ -814,9 +818,8 @@ implementation if size in [OS_64,OS_S64] then a_jmp_cond64(list,cmp_op,l) else -{$else SPARC64} - a_jmp_cond(list,cmp_op,l); {$endif SPARC64} + a_jmp_cond(list,cmp_op,l); end; @@ -827,9 +830,8 @@ implementation if size in [OS_64,OS_S64] then a_jmp_cond64(list,cmp_op,l) else -{$else SPARC64} - a_jmp_cond(list,cmp_op,l); {$endif SPARC64} + a_jmp_cond(list,cmp_op,l); end;