.file "20020310-1.c" .globl p .data .align 2 .type p, @object .size p, 8 p: .long p .long -1 .globl q .align 2 .type q, @object .size q, 8 q: .long p .long 0 .text .align 2 .globl foo .type foo, @function foo: link.w %a6,#0 lea q,%a0 move.l %a0,%d0 unlk %a6 rts .size foo, .-foo .align 2 .globl bar .type bar, @function bar: link.w %a6,#0 jbsr foo move.l (%a0),%a1 move.l 4(%a1),%d0 addq.l #1,%d0 jbne .L3 addq.l #1,4(%a0) move.l (%a1),(%a0) .L3: move.l %d0,4(%a1) unlk %a6 rts .size bar, .-bar .align 2 .globl main .type main, @function main: link.w %a6,#0 jbsr bar tst.l p+4 jbne .L6 moveq.l #1,%d0 cmp.l q+4,%d0 jbeq .L7 .L6: jbsr abort .align 2 .L7: cmp.l #p,q jbne .L6 clr.l -(%sp) jbsr exit nop .size main, .-main .ident "GCC: (GNU) 3.3.2"