From 328772cc4637b1829f1335ff1bce2c83f691220a Mon Sep 17 00:00:00 2001
From: marcus <marcus@idefix.freepascal.org>
Date: Sun, 6 Nov 2016 19:23:28 +0000
Subject: [PATCH] AROS: return code and comments in startupcode

git-svn-id: trunk@34827 -
---
 rtl/aros/arm/prt0.as | 20 ++++++++++----------
 1 file changed, 10 insertions(+), 10 deletions(-)

diff --git a/rtl/aros/arm/prt0.as b/rtl/aros/arm/prt0.as
index e919d79aa7..70d09a6b03 100644
--- a/rtl/aros/arm/prt0.as
+++ b/rtl/aros/arm/prt0.as
@@ -19,20 +19,20 @@ _start:
 	push {r0-r12,r14}
 	ldr ip,=_Backjump
 	str lr,[ip]
-	// ExecBase
+	/* 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
 	str sp,[ip]
 	
 	bl PASCALMAIN
 
-	//mov r0,#71
-	//bl _RawCharS
-	//mov r0,#10
-	//bl _RawCharS
+	/*mov r0,#71
+	bl _RawCharS
+	mov r0,#10
+	bl _RawCharS*/
 
 	.globl  _haltproc
 	.type   _haltproc,#function
@@ -43,7 +43,9 @@ _haltproc:
 
 	pop {r0-r12,r14}
 
-  // TODO: exitcode should be r0
+	/* exitcode should be r0*/
+	ldr ip,=operatingsystem_result
+	ldr r0,[ip]
 
 	ldr ip,=_Backjump
 	ldr lr,[ip]
@@ -62,5 +64,3 @@ __data_start:
   .comm __stkptr,4
 	.comm _ExecBase,4
 	.comm _Backjump,4
-
-