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

AROS: return code and comments in startupcode

Browse Source 
git-svn-id: trunk@34827 -
This commit is contained in:
marcus 2016-11-06 19:23:28 +00:00
parent 6a856f109e
commit 328772cc46
1 changed files with 10 additions and 10 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

20
rtl/aros/arm/prt0.as
View File

@ -19,20 +19,20 @@ _start:
push {r0-r12,r14} push {r0-r12,r14}
ldr ip,=_Backjump ldr ip,=_Backjump
str lr,[ip] str lr,[ip]
// ExecBase /* ExecBase */
ldr ip,=_ExecBase ldr ip,=_ExecBase
str r5, [ip] // Execbase seems to be in r5 ;-) str r5, [ip] /* Execbase seems to be in r5 ;-)*/
// Save initial stackpointer /* Save initial stackpointer*/
ldr ip,=__stkptr ldr ip,=__stkptr
str sp,[ip] str sp,[ip]
bl PASCALMAIN bl PASCALMAIN
//mov r0,#71 /*mov r0,#71
//bl _RawCharS bl _RawCharS
//mov r0,#10 mov r0,#10
//bl _RawCharS bl _RawCharS*/
.globl _haltproc .globl _haltproc
.type _haltproc,#function .type _haltproc,#function
@ -43,7 +43,9 @@ _haltproc:
pop {r0-r12,r14} pop {r0-r12,r14}
// TODO: exitcode should be r0 /* exitcode should be r0*/
ldr ip,=operatingsystem_result
ldr r0,[ip]
ldr ip,=_Backjump ldr ip,=_Backjump
ldr lr,[ip] ldr lr,[ip]
@ -62,5 +64,3 @@ __data_start:
.comm __stkptr,4 .comm __stkptr,4
.comm _ExecBase,4 .comm _ExecBase,4
.comm _Backjump,4 .comm _Backjump,4