浏览代码

* TCGSparcGen.maybeadjustresult adapted for sparc64

git-svn-id: trunk@36711 -
florian 8 年之前
父节点
当前提交
f30bf547e2
共有 1 个文件被更改,包括 2 次插入2 次删除
  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;