Jelajahi Sumber

amiga/powerpc: further tweaks in the upcoming pascal startup code

git-svn-id: trunk@35110 -
Károly Balogh 8 tahun lalu
induk
melakukan
88a91330a3
1 mengubah file dengan 1 tambahan dan 2 penghapusan
  1. 1 2
      rtl/amiga/powerpc/si_prc.pp

+ 1 - 2
rtl/amiga/powerpc/si_prc.pp

@@ -42,8 +42,7 @@ procedure PascalMain; external name 'PASCALMAIN';
 function _FPC_proc_start: longint; cdecl; public name '_start';
 begin
   AOS_ExecBase:=realExecBase;
-  IExec:=nil;
-  newStack:=nil;
+  IExec:=PPointer(@(PByte(AOS_ExecBase)[632]))^; // iexec interface's address...
 
   { The StackCookie check is only here so the symbol is referenced and
     doesn't get striped out }