get_frame to return a5 on Amiga

git-svn-id: trunk@23268 -

rtl/m68k/m68k.inc

@@ -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;