From c645ff1af9d9fa2d0523d436cdad20c3dbc33c83 Mon Sep 17 00:00:00 2001
From: florian <florian@freepascal.org>
Date: Mon, 12 Apr 2004 19:05:55 +0000
Subject: [PATCH]   + haltproc added

---
 rtl/linux/x86_64/prt0.as | 16 ++++++++++++----
 1 file changed, 12 insertions(+), 4 deletions(-)

diff --git a/rtl/linux/x86_64/prt0.as b/rtl/linux/x86_64/prt0.as
index 473e0af02e..d560eb2008 100644
--- a/rtl/linux/x86_64/prt0.as
+++ b/rtl/linux/x86_64/prt0.as
@@ -54,9 +54,14 @@ _start:
         xorq    %rbp, %rbp
         call    PASCALMAIN
 
-	hlt                           /* Crash if somehow `exit' does return.	 */
-
-/*!!!! hlt syscall? */
+        .globl  _haltproc
+        .type   _haltproc,@function
+_haltproc:
+        movl    $1,%eax                 /* exit call */
+        xorq    %rbx,%rbx
+        movw    U_SYSTEM_EXITCODE,%bx
+        syscall
+        jmp     _haltproc
 
 /* Define a symbol for the first piece of initialized data.  */
 	.data
@@ -84,7 +89,10 @@ __data_start:
 
 #
 # $Log$
-# Revision 1.4  2004-02-20 23:48:27  peter
+# Revision 1.5  2004-04-12 19:05:55  florian
+#   + haltproc added
+#
+# Revision 1.4  2004/02/20 23:48:27  peter
 #   * c stub implemented
 #
 # Revision 1.3  2004/02/08 15:33:50  florian