small pasm Code that crashes Parrot

[Jens Rieks]

Hi Folks!

I've attached a small pasm file that crashes Parrot. Seems to be a GC issue, 
it workes fine if "sweepoff" is added.

Might be useful for debugging?

cya,
Jens Rieks


#
# small example that crashes parrot
#
        set I1, 1
main:   bsr print
        inc I1
        le  I1, 100, main
        end

print:  save S1                 # save a string register, won't crash if nothing saved
        bsr convert
        print I1
        print " -> '"
        print S1
        print "'\n"
        #restore S1             # restore does not influence the bug
        ret
        
convert:
        set S1, I1
print "a\n"
        # the next line will crash parrot after a few calls (6 for me)
        set S2, ""
print "b\n"
        ret