Selaa lähdekoodia

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

git-svn-id: trunk@35110 -
Károly Balogh 8 vuotta sitten
vanhempi
commit
88a91330a3
1 muutettua tiedostoa jossa 1 lisäystä ja 2 poistoa
  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 }