From 901e1b7565811d6f0902b28f31700d7fbf764307 Mon Sep 17 00:00:00 2001
From: ceriel <none@none>
Date: Fri, 5 Aug 1988 12:48:21 +0000
Subject: [PATCH] fixes for exit status

---
 mach/mantra/int/mloop8 | 6 +++++-
 mach/mantra/int/mloopa | 1 -
 2 files changed, 5 insertions(+), 2 deletions(-)

diff --git a/mach/mantra/int/mloop8 b/mach/mantra/int/mloop8
index 0b548c48a..ce69ff2e6 100644
--- a/mach/mantra/int/mloop8
+++ b/mach/mantra/int/mloop8
@@ -209,7 +209,11 @@ ret_1W:		move.l	#0,d0
 		lea	retarea,a5 ;	bra	4f
 ret_0:		move.w	#-1,retsize
 4:		unlk	a2	;	cmp.l	a2,d6
-		beq	hlt_z ;	move.l	(sp)+,a3
+		bne	9f
+		cl	-(sp)
+		jsr	hlt_z 
+9:
+		move.l	(sp)+,a3
 		move.l	(sp)+,a0		!FILE OR PROC DES BASE IN a0
 #if	count+flow+prof
 		move.l	a0,curproc		!SAVE PROC DES BASE CUR PROC
diff --git a/mach/mantra/int/mloopa b/mach/mantra/int/mloopa
index 187c7914c..f0c035927 100644
--- a/mach/mantra/int/mloopa
+++ b/mach/mantra/int/mloopa
@@ -340,7 +340,6 @@ lhalt:
 		clr.l	(a1)+		!skip file name
 		bra	4b		!only new line
 9:
-		cl	-(sp)
 	.sect .data
 emlast:	.asciz	"em_last"
 mess1:	.asciz	"no line processed yet\n"