fixes for exit status

diff --git a/mach/mantra/int/mloop8 b/mach/mantra/int/mloop8
index 0b548c4..ce69ff2 100644 (file)
--- 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 187c791..f0c0359 100644 (file)
--- 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"