Преглед на файлове

* 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;