gistfile1.perl

pmichaud@orange:~/rakudo$ cat x
my @a = 1..5;

Q:PIR {
    trace 1
    $P0 = find_lex '@a'
    $P1 = $P0.'postcircumfix:<[ ]>'(0)
    say $P1
    trace 0
};
pmichaud@orange:~/rakudo$ ./perl6 x
00c6 find_lex P0, "@a"                                        P0=ResizablePMCArray=PMC(0x7486450)  (x:3)
00c9 set_args PC26 (x:3)
00cd callmethodcc P0, "postcircumfix:<[ ]>"	P0=Object(Array)=PMC(0x7753a50)  (x:3)
0542 get_params PC15
0546 set_args PC5
0549 callmethodcc P3, "HOW"                                        P3=Object()=PMC(0x5259da0) 
0047 get_params PC5
004a typeof P0, P2                                        P0=PMCNULL P2=Object()=PMC(0x5259da0)
004d getprop P1, "metaclass", P0                                        P1=PMCNULL  P0=Class=PMC(0x525c140)
0051 set_returns PC5
0054 returncc
054c get_results PC5
054f set_args PC15
0553 callmethodcc P2, "get_parrotclass"                                        P2=Object(ClassHOW)=PMC(0x5572c20) 
0479 get_params PC127
0480 if_null P4, 113                                        P4=Object()=PMC(0x5259da0) 
0483 set P0, P4                                        P0=PMCNULL P4=Object()=PMC(0x5259da0)
0486 typeof S0, P4                                        S0="" P4=Object()=PMC(0x5259da0)
0517 get_params PC5
051a set_args PC5
051d callmethodcc P2, "HOW"                                        P2=Object()=PMC(0x5259da0) 
0047 get_params PC5
004a typeof P0, P2                                        P0=PMCNULL P2=Object()=PMC(0x5259da0)
004d getprop P1, "metaclass", P0                                        P1=PMCNULL  P0=Class=PMC(0x525c140)
0051 set_returns PC5
0054 returncc
0520 get_results PC5
0523 getattribute P1, P0, "longname"                                        P1=PMCNULL P0=Object(ClassHOW)=PMC(0x5572c20) 
0527 set_returns PC5
052a returncc
0489 eq S0, "Class", 104                                        S0="Mu"  
048d eq S0, "PMCProxy", 100                                        S0="Mu"  
Segmentation fault
pmichaud@orange:~/rakudo$