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

* rewritten to be similar to GCC startup code

Browse Source
This commit is contained in:
Károly Balogh 2004-04-21 03:24:55 +00:00
parent a34b66fc93
commit 8c253f22d9
1 changed files with 18 additions and 13 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

31
rtl/morphos/prt0.as
View File

@ -19,15 +19,15 @@
.globl _start
.align 4
_start:
stwu 1,-12(1)
mflr 0
stw 13,8(1)
stw 0,16(1)
mr 13,1
stwu 1,-64(1)
mflr 0
stw 29,52(1)
stw 30,56(1)
stw 31,60(1)
stw 0,68(1)
/* Get ExecBase */
li 3,4
lwz 3,0(3)
lwz 3,4(0)
lis 4,_ExecBase@ha
stw 3,_ExecBase@l(4)
@ -39,10 +39,13 @@ _start:
bl PASCALMAIN
lwz 0,16(1)
mtlr 0
lwz 13,8(1)
lwz 1,0(1)
lwz 11,0(1)
lwz 0,4(11)
mtlr 0
lwz 29,-12(11)
lwz 30,-8(11)
lwz 31,-4(11)
mr 1,11
blr
.globl _ExecBase
@ -61,10 +64,12 @@ _ExecBase:
__abox__:
.long 1
/*
$Log$
Revision 1.4 2004-04-09 04:02:43 karoly
Revision 1.5 2004-04-21 03:24:55 karoly
* rewritten to be similar to GCC startup code
Revision 1.4 2004/04/09 04:02:43 karoly
* abox id symbol fixed
Revision 1.3 2004/04/09 02:58:15 karoly