paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-09-15 12:09:18 +02:00
Code Issues Packages Projects Releases Wiki Activity

* on aarch64-win64 the case-labels are a list of 8-Byte aligned 8—Byte values, so adjust the alignment to avoid 2 32-bit loads

Browse Source
This commit is contained in:
Sven/Sarah Barth 2024-11-22 17:56:11 +01:00
parent ad4fe174b1
commit 7b3efe6397
1 changed files with 4 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
compiler/aarch64/ncpuset.pas
View File

@ -250,7 +250,10 @@ implementation
cg.a_loadaddr_ref_reg(current_asmdata.CurrAsmList,href,basereg); cg.a_loadaddr_ref_reg(current_asmdata.CurrAsmList,href,basereg);
{ load the slot } { load the slot }
jumpreg:=cg.getaddressregister(current_asmdata.CurrAsmList); jumpreg:=cg.getaddressregister(current_asmdata.CurrAsmList);
reference_reset_base(href,basereg,0,href.temppos,4,[]); if target_info.system=system_aarch64_win64 then
reference_reset_base(href,basereg,0,href.temppos,sizeof(aint),[])
else
reference_reset_base(href,basereg,0,href.temppos,4,[]);
href.index:=indexreg; href.index:=indexreg;
href.shiftmode:=SM_LSL; href.shiftmode:=SM_LSL;
if target_info.system=system_aarch64_win64 then if target_info.system=system_aarch64_win64 then