Browse Source

* TCGSparcGen.maybeadjustresult adapted for sparc64

git-svn-id: trunk@36711 -
florian 8 years ago
parent
commit
f30bf547e2
1 changed files with 2 additions and 2 deletions
  1. 2 2
      compiler/sparcgen/cgsparc.pas

+ 2 - 2
compiler/sparcgen/cgsparc.pas

@@ -637,8 +637,8 @@ implementation
         overflowops = [OP_MUL,OP_SHL,OP_ADD,OP_SUB,OP_NOT,OP_NEG];
       begin
         if (op in overflowops) and
-           (size in [OS_8,OS_S8,OS_16,OS_S16]) then
-          a_load_reg_reg(list,OS_32,size,dst,dst);
+           (size in [OS_8,OS_S8,OS_16,OS_S16{$ifdef SPARC64},OS_32,OS_S32{$endif SPARC64}]) then
+          a_load_reg_reg(list,OS_INT,size,dst,dst);
       end;