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

m68k: fix frame pointer register on atari, and a few other non-amiga systems

Browse Source 
git-svn-id: trunk@35204 -
This commit is contained in:
Károly Balogh 2016-12-27 17:09:06 +00:00
parent e6029140eb
commit 35ddac66fc
2 changed files with 2 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
compiler/m68k/cpupi.pas
View File

@ -46,8 +46,7 @@ unit cpupi;
procedure tcpuprocinfo.init_framepointer; procedure tcpuprocinfo.init_framepointer;
begin begin
{ ToDo : what about system_m68k_embedded? } if not (target_info.system in [system_m68k_amiga]) then
if target_info.system in [system_m68k_linux,system_m68k_netbsd,system_m68k_openbsd] then
begin begin
RS_FRAME_POINTER_REG:=RS_A6; RS_FRAME_POINTER_REG:=RS_A6;
NR_FRAME_POINTER_REG:=NR_A6; NR_FRAME_POINTER_REG:=NR_A6;

6
rtl/m68k/m68k.inc
View File

@ -87,11 +87,7 @@ procedure fpc_cpuinit;
{$define FPC_SYSTEM_HAS_GET_FRAME} {$define FPC_SYSTEM_HAS_GET_FRAME}
function get_frame : pointer; assembler;nostackframe; function get_frame : pointer; assembler;nostackframe;
asm asm
{$if defined(amiga)} move.l fp,d0
move.l a5,d0
{$else}
move.l a6,d0
{$endif}
end; end;