.file "991026-2.c" .globl myname .data .type myname, @object .size myname, 4 myname: .string "foo" .section .rodata.str1.1,"aMS",@progbits,1 .LC0: .string "%s: Error: fork - %s\n" .LC1: .string "/dev/null" .text .align 2 .globl detach .type detach, @function detach: link.w %a6,#0 move.l %a2,-(%sp) jbsr fork moveq.l #-1,%d1 cmp.l %d0,%d1 jbeq .L3 tst.l %d0 jbeq .L4 jbra .L5 .align 2 .L3: jbsr __errno_location move.l (%a0),-(%sp) jbsr strerror move.l %a0,(%sp) pea myname pea .LC0 jbsr printf pea 255.w jbsr exit .align 2 .L5: clr.l -(%sp) jbsr _exit .align 2 .L4: clr.l -(%sp) lea close,%a2 jbsr (%a2) pea 1.w jbsr (%a2) pea 2.w jbsr (%a2) pea 2.w pea .LC1 jbsr open addq.w #4,%sp move.l %d0,(%sp) lea dup,%a2 jbsr (%a2) move.l %d0,(%sp) jbsr (%a2) move.l -4(%a6),%a2 unlk %a6 rts .size detach, .-detach .ident "GCC: (GNU) 3.3.2"