On Sunday 29 June 2008 18:17:16 luben karavelov wrote:
> The source of the program (dumb fibonacci numbers) is as follows:
>
> use v6;
>
> sub fib( $n ){
> if ( $n < 2 ) {
> $n;
> } else {
> fib($n-1)+fib($n-2);
> }
> }
>
> say fib(11);
>
> it dies with segmentation fault if run without -G option:
>
> ./parrot languages/perl6/perl6.pbc fib
> Segmentation fault
>
> I have generated the corresponding PIR like this:
> ./parrot languages/perl6/perl6.pbc --target=pir --output=fib.pir fib
>
> In order to run the PIR code I have added load_bytecode
> 'languages/perl6/perl6.pbc' in the first sub and I have deleted the
> ':instanceof("Perl6Sub")' declaration for sub "fib".
>
> When I run it in parrot it works as expected. But If I change the requested
> fibonacci number to 12 it starts to segfault again. If run with -G option
> it works.
I can reproduce it if I back out r28836, but I can't reproduce it after that.
The crash is in the same place, so I think it's the same bug. Can you update
to r28836 or later and confirm that it's fixed?
-- c
