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

* fix encoding of ash_savereg and ash_savereg_x

Browse Source
This commit is contained in:
Sven/Sarah Barth 2024-11-08 17:42:35 +01:00
parent bc03b48632
commit b7afb6237f
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
compiler/aarch64/agcpugas.pas
View File

@ -278,13 +278,13 @@ unit agcpugas;
begin
check_offset(seh.data.offset,504);
check_reg(seh.data.reg,R_INTREGISTER,min_int_reg);
writeword($C000 or ((getsupreg(seh.data.reg)-min_int_reg) shl 6) or (seh.data.offset shr 3));
writeword($D000 or ((getsupreg(seh.data.reg)-min_int_reg) shl 6) or (seh.data.offset shr 3));
end;
ash_savereg_x:
begin
check_offset(seh.data.offset,256);
check_reg(seh.data.reg,R_INTREGISTER,min_int_reg);
writeword($C400 or ((getsupreg(seh.data.reg)-min_int_reg) shl 5) or ((seh.data.offset shr 3)-1));
writeword($D400 or ((getsupreg(seh.data.reg)-min_int_reg) shl 5) or ((seh.data.offset shr 3)-1));
end;
ash_saveregp:
begin