mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-08-13 05:59:27 +02:00
* fix encoding for save_freg_x
This commit is contained in:
parent
959804798c
commit
43d1036b3a
@ -308,7 +308,7 @@ unit agcpugas;
|
|||||||
begin
|
begin
|
||||||
check_offset(seh.data.offset,256);
|
check_offset(seh.data.offset,256);
|
||||||
check_reg(seh.data.reg,R_MMREGISTER,min_mm_reg);
|
check_reg(seh.data.reg,R_MMREGISTER,min_mm_reg);
|
||||||
writeword($CE00 or ((getsupreg(seh.data.reg)-min_mm_reg) shl 5) or ((seh.data.offset shr 3)-1));
|
writeword($DE00 or ((getsupreg(seh.data.reg)-min_mm_reg) shl 5) or ((seh.data.offset shr 3)-1));
|
||||||
end;
|
end;
|
||||||
ash_savefregp:
|
ash_savefregp:
|
||||||
begin
|
begin
|
||||||
|
Loading…
Reference in New Issue
Block a user