Browse Source

* fixed a_load_subsetreg_reg according to Jonas' remarks

git-svn-id: trunk@4343 -
tom_at_work 19 years ago
parent
commit
d112bfbd43
1 changed files with 1 additions and 0 deletions
  1. 1 0
      compiler/powerpc64/cgcpu.pas

+ 1 - 0
compiler/powerpc64/cgcpu.pas

@@ -890,6 +890,7 @@ begin
   if (sreg.startbit <> 0) then begin
     list.concat(taicpu.op_reg_reg_const_const(A_EXTRDI, destreg, sreg.subsetreg, sreg.bitlen, extrdi_startbit));
     a_load_reg_reg(list, tcgsize2unsigned[sreg.subsetregsize], subsetsize, destreg, destreg);
+    a_load_reg_reg(list, subsetsize, tosize, destreg, destreg);
   end else begin
     a_load_reg_reg(list, tcgsize2unsigned[sreg.subsetregsize], subsetsize, sreg.subsetreg, destreg);
   end;