paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-17 21:49:18 +02:00
Code Issues Packages Projects Releases Wiki Activity

* reworked startup code:

Browse Source 
- now uses AllocTaskPooled
    - check for unsuccessful stack allocation
This commit is contained in:
Károly Balogh 2005-02-03 19:09:11 +00:00
parent a2a4985896
commit 807c98ff5d
1 changed files with 11 additions and 16 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

27
rtl/morphos/prt0.as
View File

@ -32,15 +32,15 @@ _start:
lis 4,__stklen@ha lis 4,__stklen@ha
lwz 3,__stklen@l(4) lwz 3,__stklen@l(4)
stw 3,0(2) stw 3,0(2)
li 3,1
stw 3,4(2)
lwz 3,4(0) lwz 3,4(0)
stw 3,56(2) stw 3,56(2)
lwz 3,100(2) lwz 3,100(2)
mtlr 3 mtlr 3
li 3,-684 /* AllocVec */ li 3,-858 /* AllocTaskPooled */
blrl blrl
/* FIXME: check for successful allocation! */
cmplwi cr0,3,0
beq cr0,_exit
lis 4,stackArea@ha lis 4,stackArea@ha
stw 3,stackArea@l(4) stw 3,stackArea@l(4)
@ -67,21 +67,11 @@ _start:
li 3,-804 /* NewPPCStackSwap */ li 3,-804 /* NewPPCStackSwap */
blrl blrl
/* Freeing up stack area */
lis 4,stackArea@ha
lwz 3,stackArea@l(4)
stw 3,36(2)
lwz 3,4(0)
stw 3,56(2)
lwz 3,100(2)
mtlr 3
li 3,-690 /* FreeVec */
blrl
/* Setting return value */ /* Setting return value */
lis 4,returnValue@ha lis 4,returnValue@ha
lwz 3,returnValue@l(4) lwz 3,returnValue@l(4)
_exit:
addi 1,1,16 addi 1,1,16
lwz 0,4(1) lwz 0,4(1)
mtlr 0 mtlr 0
@ -196,7 +186,12 @@ __abox__:
/* /*
$Log$ $Log$
Revision 1.11 2004-06-06 22:02:22 karoly Revision 1.12 2005-02-03 19:09:11 karoly
* reworked startup code:
- now uses AllocTaskPooled
- check for unsuccessful stack allocation
Revision 1.11 2004/06/06 22:02:22 karoly
* hopefully fixed stack problems causing hits * hopefully fixed stack problems causing hits
Revision 1.10 2004/06/06 12:51:06 karoly Revision 1.10 2004/06/06 12:51:06 karoly