.file "20000412-2.c" .text .align 2 .globl f .type f, @function f: link.w %a6,#-4 move.l 8(%a6),%a0 move.l %a0,-4(%a6) jbne .L2 move.l 12(%a6),%a0 move.l (%a0),%d0 jbra .L1 .align 2 .L2: pea -4(%a6) pea -1(%a0) jbsr f .align 2 .L1: unlk %a6 rts .size f, .-f .align 2 .globl main .type main, @function main: link.w %a6,#0 clr.l -(%sp) pea 100.w jbsr f addq.l #8,%sp moveq.l #1,%d1 cmp.l %d0,%d1 jbeq .L5 jbsr abort .align 2 .L5: clr.l -(%sp) jbsr exit nop .size main, .-main .ident "GCC: (GNU) 3.3.2"