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

aros: startup code tweaks for i386, to keep libbase untouched in eax

Browse Source 
git-svn-id: trunk@34418 -
This commit is contained in:
Károly Balogh 2016-09-03 07:59:32 +00:00
parent 84abdd8287
commit d5d62b7675
1 changed files with 4 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
rtl/aros/i386/prt0.as
View File

@ -42,8 +42,7 @@ start:
movl _ExecBase,%eax movl _ExecBase,%eax
pushl %eax pushl %eax
pushl $0 pushl $0
movl -196(%eax),%eax /* FindTask(nil) */ call *-196(%eax) /* FindTask(nil) */
call *%eax
addl $8,%esp addl $8,%esp
movl 64(%eax),%ecx /* SPUpper */ movl 64(%eax),%ecx /* SPUpper */
@ -73,8 +72,7 @@ _allocStack:
pushl %eax pushl %eax
pushl $0 /* MEMF_ANY */ pushl $0 /* MEMF_ANY */
pushl __stklen pushl __stklen
movl -456(%eax),%eax /* AllocVec() */ call *-456(%eax) /* AllocVec() */
call *%eax
addl $12,%esp addl $12,%esp
testl %eax,%eax testl %eax,%eax
@ -94,8 +92,7 @@ _allocStack:
lea _initProc,%ebx lea _initProc,%ebx
pushl %ebx pushl %ebx
pushl %ecx pushl %ecx
movl -536(%eax),%eax /* NewStackSwap() */ call *-536(%eax) /* NewStackSwap() */
call *%eax
addl $16,%esp addl $16,%esp
jmp _afterMain jmp _afterMain
@ -113,8 +110,7 @@ _freeStack:
movl _ExecBase,%eax movl _ExecBase,%eax
pushl %eax pushl %eax
pushl StackAreaPtr pushl StackAreaPtr
movl -460(%eax),%eax /* FreeVec() */ call *-460(%eax) /* FreeVec() */
call *%eax
addl $8,%esp addl $8,%esp
__exit: __exit: