Explorar o código

16-bit ALU fix in tcgunaryminusnode.second_integer

git-svn-id: branches/i8086@23745 -
nickysn %!s(int64=12) %!d(string=hai) anos
pai
achega
588b12200b
Modificáronse 1 ficheiros con 1 adicións e 1 borrados
  1. 1 1
      compiler/ncgmat.pas

+ 1 - 1
compiler/ncgmat.pas

@@ -245,7 +245,7 @@ implementation
         if (left.resultdef.size<=sinttype.size) then
           opsize:=sinttype
         else
-          opsize:=s64inttype;
+          opsize:={$ifdef cpu16bitalu}s32inttype{$else}s64inttype{$endif};
 {$endif cpunodefaultint}
         hlcg.location_force_reg(current_asmdata.CurrAsmList,location,left.resultdef,opsize,false);
         hlcg.a_op_reg_reg(current_asmdata.CurrAsmList,OP_NEG,opsize,location.register,location.register);