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

get_frame to return a5 on Amiga

Browse Source 
git-svn-id: trunk@23268 -
This commit is contained in:
Károly Balogh 2013-01-01 02:37:39 +00:00
parent 79a0f706de
commit 0702109f37
1 changed files with 4 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
rtl/m68k/m68k.inc
View File

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