paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2026-01-06 05:50:37 +01:00
Code Issues Packages Projects Releases Wiki Activity

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

Browse Source
This commit is contained in:
Nikolay Nikolov 2025-10-07 20:07:41 +03:00
parent cfcba50385
commit 444b725444
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
compiler/hlcgobj.pas
View File

@ -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;