From 60971f7485655eba7a12de5ed1f85c8eb114016a Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?K=C3=A1roly=20Balogh?= <karoly@freepascal.org>
Date: Sat, 1 May 2004 15:08:57 +0000
Subject: [PATCH]   + haltproc added, saving/restoring stackpointer added

---
 rtl/morphos/prt0.as | 26 ++++++++++++++++++++++----
 1 file changed, 22 insertions(+), 4 deletions(-)

diff --git a/rtl/morphos/prt0.as b/rtl/morphos/prt0.as
index ef08c039f9..4154df43ea 100644
--- a/rtl/morphos/prt0.as
+++ b/rtl/morphos/prt0.as
@@ -26,10 +26,14 @@ _start:
 	stw 31,60(1)
 	stw 0,68(1)
 
+	/* Save Stackpointer */
+	lis 4,OriginalStkPtr@ha
+	stw 1,OriginalStkPtr@l(4)
+
 	/* Get ExecBase */
-	lwz	3,4(0)
-	lis	4,_ExecBase@ha
-	stw	3,_ExecBase@l(4)
+	lwz 3,4(0)
+	lis 4,_ExecBase@ha
+	stw 3,_ExecBase@l(4)
 
 	/* ARGC & ARGV and ENVP STUFF MISSING!!! */
 	/* AFAIK there is no such thing as ENVP on MorphOS, just like */
@@ -39,6 +43,12 @@ _start:
 
 	bl	PASCALMAIN
 
+	.globl	_haltproc
+_haltproc:
+	/* Restore Stackpointer */	
+	lis 4,OriginalStkPtr@ha
+	lwz 1,OriginalStkPtr@l(4)
+
 	lwz 11,0(1)
 	lwz 0,4(11)
 	mtlr 0
@@ -55,6 +65,11 @@ SysBase:
 _ExecBase:
 	.long	0
 
+   .globl	OriginalStkPtr
+	.align	4
+OriginalStkPtr:
+	.long	0
+
 	/* This is needed to be a proper MOS ABox executable */
 	/* This symbol _MUST NOT_ be stripped out from the executable */
    /* or else... */
@@ -66,7 +81,10 @@ __abox__:
 
 /*
   $Log$
-  Revision 1.5  2004-04-21 03:24:55  karoly
+  Revision 1.6  2004-05-01 15:08:57  karoly
+    + haltproc added, saving/restoring stackpointer added
+
+  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