* fixed a_load_subsetreg_reg for loading signed fields (EXTRDI results

    in an unsigned number)

git-svn-id: trunk@3739 -

compiler/powerpc64/cgcpu.pas

@@ -898,7 +898,7 @@ begin
     a_load_reg_reg(list, subsetsize, tosize, subsetreg, destreg);
 
   // extend sign (actually only required for signed subsets...) and if that subset isn't >= real size
-  a_load_reg_reg(list, subsetsize, tosize, destreg, destreg);
+  a_load_reg_reg(list, tcgsize2unsigned[subsetsize], tosize, destreg, destreg);
 end;
 
 procedure tcgppc.a_load_reg_subsetreg(list : TAsmList; fromsize: tcgsize; subsetregsize,