fixes for exit status

This commit is contained in:
ceriel 1988-08-05 12:48:21 +00:00
parent 05bac6c619
commit 901e1b7565
2 changed files with 5 additions and 2 deletions

View file

@ -209,7 +209,11 @@ ret_1W: move.l #0,d0
lea retarea,a5 ; bra 4f lea retarea,a5 ; bra 4f
ret_0: move.w #-1,retsize ret_0: move.w #-1,retsize
4: unlk a2 ; cmp.l a2,d6 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 move.l (sp)+,a0 !FILE OR PROC DES BASE IN a0
#if count+flow+prof #if count+flow+prof
move.l a0,curproc !SAVE PROC DES BASE CUR PROC move.l a0,curproc !SAVE PROC DES BASE CUR PROC

View file

@ -340,7 +340,6 @@ lhalt:
clr.l (a1)+ !skip file name clr.l (a1)+ !skip file name
bra 4b !only new line bra 4b !only new line
9: 9:
cl -(sp)
.sect .data .sect .data
emlast: .asciz "em_last" emlast: .asciz "em_last"
mess1: .asciz "no line processed yet\n" mess1: .asciz "no line processed yet\n"