paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-06 14:28:01 +02:00
Code Issues Packages Projects Releases Wiki Activity

* m68k: spilling read, write, and replace is now bound to CPU capabilities instead of CPU family. This probably fixes some issues on 68000, where spilling replacement was not respecting CPU displacement handling boundaries, leading to assembler errors.

Browse Source
This commit is contained in:
Karoly Balogh 2022-03-11 16:03:21 +01:00
parent 7f8591926a
commit 0600287c63
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/m68k/rgcpu.pas
View File

@ -60,7 +60,7 @@ unit rgcpu;
helplist : tasmlist; helplist : tasmlist;
hreg : tregister; hreg : tregister;
begin begin
if (abs(spilltemp.offset)>32767) and (current_settings.cputype in (cpu_coldfire + [cpu_mc68000])) then if (abs(spilltemp.offset)>32767) and not (CPUM68K_HAS_BASEDISP in cpu_capabilities[current_settings.cputype]) then
begin begin
helplist:=tasmlist.create; helplist:=tasmlist.create;
@ -92,7 +92,7 @@ unit rgcpu;
helplist : tasmlist; helplist : tasmlist;
hreg : tregister; hreg : tregister;
begin begin
if (abs(spilltemp.offset)>32767) and (current_settings.cputype in (cpu_coldfire + [cpu_mc68000])) then if (abs(spilltemp.offset)>32767) and not (CPUM68K_HAS_BASEDISP in cpu_capabilities[current_settings.cputype]) then
begin begin
helplist:=tasmlist.create; helplist:=tasmlist.create;
@ -126,7 +126,7 @@ unit rgcpu;
begin begin
result:=false; result:=false;
opidx:=-1; opidx:=-1;
if (abs(spilltemp.offset)>32767) and (current_settings.cputype in cpu_coldfire) then if (abs(spilltemp.offset)>32767) and not (CPUM68K_HAS_BASEDISP in cpu_capabilities[current_settings.cputype]) then
exit; exit;
case instr.ops of case instr.ops of
1: 1: