From 6d9d69aebf251cc304c64d7a48b415c870f28d64 Mon Sep 17 00:00:00 2001 From: ceriel Date: Fri, 14 Apr 1989 18:33:56 +0000 Subject: [PATCH] take care of proper exit status --- mach/mantra/int/mloopa | 17 +++++++++++------ 1 file changed, 11 insertions(+), 6 deletions(-) diff --git a/mach/mantra/int/mloopa b/mach/mantra/int/mloopa index f0c035927..7bb31c2b3 100644 --- a/mach/mantra/int/mloopa +++ b/mach/mantra/int/mloopa @@ -275,12 +275,14 @@ lhalt: pea emlast bsr _Xunlink testen (sp)+ - blt halt + beq 1f + testen (sp)+ ! ignore result +1: mov #0x1B6,-(sp) pea emlast bsr _Xcreat testen (sp)+ - blt halt + bne halt mov (sp)+,d6 !d6 contains file descriptor cmp.l #-1,linused-4 !test if buffer is fully used beq 0f @@ -294,7 +296,7 @@ lhalt: mov d6,-(sp) bsr _Xwrite testen (sp)+ - blt halt + bne halt add.l #4,sp bra 9f 2: move.l a1,-(sp) @@ -303,7 +305,7 @@ lhalt: mov d6,-(sp) bsr _Xwrite testen (sp)+ - blt halt + bne halt add.l #4,sp move.l (sp)+,a1 move.l (a1),d7 @@ -318,7 +320,9 @@ lhalt: move.l d7,-(sp) mov d6,-(sp) bsr _Xwrite - add.l wrd+4,sp + testen (sp)+ + bne halt + add.l 4,sp move.l (sp)+,a1 4: move.l (a1),d1 !next print line numbers lea mess3,a0 @@ -329,7 +333,7 @@ lhalt: mov d6,-(sp) bsr _Xwrite testen (sp)+ - blt halt + bne halt add.l #4,sp move.l (sp)+,a1 bsr nexttab @@ -340,6 +344,7 @@ lhalt: clr.l (a1)+ !skip file name bra 4b !only new line 9: + clr.l -(sp) .sect .data emlast: .asciz "em_last" mess1: .asciz "no line processed yet\n" -- 2.34.1