Luke Palmer <[EMAIL PROTECTED]> wrote: > The following program segfaults after 510 iterations:
> .sub _main > $I0 = 0 > again: > $S1 = "anon" > $S0 = $I0 > inc $I0 > concat $S1, $S0 > newclass $P0, $S1 > find_type $I2, $S1 > print $I2 > print "\n" > if $I0 < 1000 goto again > end > .end Yep. Tricky. The init code of OrderedHash didn't clear the ptr, where the hash isn't yet constructed. Now during DOD this pointer was marked as a PerlHash which caused the segfault. > It runs fine if I C<sweepoff> at the beginning, and indeed, $ parrot -G x.imc # turn off DOD Thanks for reporting, leo
