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

m68k: atari syscalls might also destroy D2 and A2

Browse Source 
git-svn-id: trunk@45469 -
This commit is contained in:
Károly Balogh 2020-05-23 11:13:07 +00:00
parent 60d4363f47
commit 58af742f3a
1 changed files with 4 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
compiler/m68k/cpupara.pas
View File

@ -83,7 +83,8 @@ unit cpupara;
begin
{ d0 and d1 are considered volatile }
Result:=VOLATILE_INTREGISTERS;
if target_info.system in [system_m68k_palmos] then
if (target_info.system in [system_m68k_palmos]) or
((target_info.system in [system_m68k_atari]) and (calloption in [pocall_syscall])) then
include(result,RS_D2);
end;
@ -92,7 +93,8 @@ unit cpupara;
begin
{ a0 and a1 are considered volatile }
Result:=VOLATILE_ADDRESSREGISTERS;
if target_info.system in [system_m68k_palmos] then
if (target_info.system in [system_m68k_palmos]) or
((target_info.system in [system_m68k_atari]) and (calloption in [pocall_syscall])) then
include(result,RS_A2);
end;