Browse Source

* 64-bit ALU, 32-bit address space fixes in thlcgobj.a_load_reg_subsetref

Nikolay Nikolov 5 days ago
parent
commit
444b725444
1 changed files with 3 additions and 3 deletions
  1. 3 3
      compiler/hlcgobj.pas

+ 3 - 3
compiler/hlcgobj.pas

@@ -1648,13 +1648,13 @@ implementation
             internalerror(2019052901);
           tmpsref:=sref;
           tmpsref.bitlen:=AIntBits;
-          fromreg1:=hlcg.getintregister(list,uinttype);
-          a_load_reg_reg(list,fromsize,uinttype,fromreg,fromreg1);
+          fromreg1:=hlcg.getintregister(list,aluuinttype);
+          a_load_reg_reg(list,fromsize,aluuinttype,fromreg,fromreg1);
           if target_info.endian=endian_big then
             begin
               inc(tmpsref.ref.offset,sref.bitlen-AIntBits);
             end;
-          a_load_reg_subsetref(list,uinttype,uinttype,fromreg1,tmpsref);
+          a_load_reg_subsetref(list,aluuinttype,aluuinttype,fromreg1,tmpsref);
           if target_info.endian=endian_big then
             begin
               tmpsref.ref.offset:=sref.ref.offset;