paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-06-25 03:58:30 +02:00
Code Issues Packages Projects Releases Wiki Activity

* some cleanup, comments added

Browse Source
This commit is contained in:
Károly Balogh 2004-06-06 12:47:57 +00:00
parent 433693deca
commit 9d93c8421c
1 changed files with 154 additions and 150 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

16
rtl/morphos/prt0.as
View File

@ -3,7 +3,7 @@
*/ */
/* /*
This file is part of the Free Pascal run time library. This file is part of the Free Pascal run time library.
Copyright (c) 2004 by Karoly Balogh for Genesi Sarl. Copyright (c) 2004 by Karoly Balogh for Genesi Sarl
Thanks for Martin 'MarK' Kuchinka <kuchinka@volny.cz> Thanks for Martin 'MarK' Kuchinka <kuchinka@volny.cz>
for his help. for his help.
@ -38,8 +38,10 @@ _start:
stw 3,56(2) stw 3,56(2)
lwz 3,100(2) lwz 3,100(2)
mtlr 3 mtlr 3
li 3,-684 li 3,-684 /* AllocVec */
blrl blrl
/* FIXME: check for successful allocation! */
lis 4,stackArea@ha lis 4,stackArea@ha
stw 3,stackArea@l(4) stw 3,stackArea@l(4)
@ -62,7 +64,7 @@ _start:
stw 3,40(2) stw 3,40(2)
lwz 4,100(2) lwz 4,100(2)
mtlr 4 mtlr 4
li 3,-804 li 3,-804 /* NewPPCStackSwap */
blrl blrl
/* Freeing up stack area */ /* Freeing up stack area */
@ -73,7 +75,7 @@ _start:
stw 3,56(2) stw 3,56(2)
lwz 3,100(2) lwz 3,100(2)
mtlr 3 mtlr 3
li 3,-690 li 3,-690 /* FreeVec */
blrl blrl
/* Setting return value */ /* Setting return value */
@ -87,7 +89,6 @@ _start:
blr blr
_initproc: _initproc:
/* Save Linkregister */
stwu 1,-128(1) stwu 1,-128(1)
mflr 0 mflr 0
stw 13,52(1) stw 13,52(1)
@ -197,7 +198,10 @@ __abox__:
/* /*
$Log$ $Log$
Revision 1.8 2004-06-05 19:25:12 karoly Revision 1.9 2004-06-06 12:47:57 karoly
* some cleanup, comments added
Revision 1.8 2004/06/05 19:25:12 karoly
+ reworked to support resizing of stack + reworked to support resizing of stack
Revision 1.7 2004/05/13 01:15:42 karoly Revision 1.7 2004/05/13 01:15:42 karoly