* m68k/cgcpu.pas, tcg68k.a_load_ref_reg:

    "sign_extend" expects the old size, not the new size. This fixes the handling of "InOutRes" which is a Word...

git-svn-id: trunk@22840 -

compiler/m68k/cgcpu.pas

@@ -783,7 +783,7 @@ unit cgcpu;
          fixref(list,href);
          list.concat(taicpu.op_ref_reg(A_MOVE,TCGSize2OpSize[fromsize],href,register));
          { extend the value in the register }
-         sign_extend(list, tosize, register);
+         sign_extend(list, fromsize, register);
       end;