mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-07 18:47:52 +02:00
aros: startup code tweaks for i386, to keep libbase untouched in eax
git-svn-id: trunk@34418 -
This commit is contained in:
parent
84abdd8287
commit
d5d62b7675
@ -42,8 +42,7 @@ start:
|
||||
movl _ExecBase,%eax
|
||||
pushl %eax
|
||||
pushl $0
|
||||
movl -196(%eax),%eax /* FindTask(nil) */
|
||||
call *%eax
|
||||
call *-196(%eax) /* FindTask(nil) */
|
||||
addl $8,%esp
|
||||
|
||||
movl 64(%eax),%ecx /* SPUpper */
|
||||
@ -73,8 +72,7 @@ _allocStack:
|
||||
pushl %eax
|
||||
pushl $0 /* MEMF_ANY */
|
||||
pushl __stklen
|
||||
movl -456(%eax),%eax /* AllocVec() */
|
||||
call *%eax
|
||||
call *-456(%eax) /* AllocVec() */
|
||||
addl $12,%esp
|
||||
|
||||
testl %eax,%eax
|
||||
@ -94,8 +92,7 @@ _allocStack:
|
||||
lea _initProc,%ebx
|
||||
pushl %ebx
|
||||
pushl %ecx
|
||||
movl -536(%eax),%eax /* NewStackSwap() */
|
||||
call *%eax
|
||||
call *-536(%eax) /* NewStackSwap() */
|
||||
addl $16,%esp
|
||||
jmp _afterMain
|
||||
|
||||
@ -113,8 +110,7 @@ _freeStack:
|
||||
movl _ExecBase,%eax
|
||||
pushl %eax
|
||||
pushl StackAreaPtr
|
||||
movl -460(%eax),%eax /* FreeVec() */
|
||||
call *%eax
|
||||
call *-460(%eax) /* FreeVec() */
|
||||
addl $8,%esp
|
||||
|
||||
__exit:
|
||||
|
Loading…
Reference in New Issue
Block a user