Browse Source

- reverted r21246, it breaks tcalext3/5 on x86

git-svn-id: trunk@21258 -
Jonas Maebe 13 years ago
parent
commit
003a30db6b
1 changed files with 3 additions and 1 deletions
  1. 3 1
      compiler/cgobj.pas

+ 3 - 1
compiler/cgobj.pas

@@ -1300,7 +1300,9 @@ implementation
              bitmask := high(aword);
            a_op_const_reg(list,OP_AND,sreg.subsetregsize,tcgint(bitmask),tmpreg);
          end;
-       a_load_reg_reg(list,sreg.subsetregsize,tosize,tmpreg,destreg);
+       tmpreg := makeregsize(list,tmpreg,subsetsize);
+       a_load_reg_reg(list,tcgsize2unsigned[subsetsize],subsetsize,tmpreg,tmpreg);
+       a_load_reg_reg(list,subsetsize,tosize,tmpreg,destreg);
      end;