gistfile1.txt

> say 1, 2 X~ 'a', 'b';
Null PMC access in clone()
> Wynne:rakudo colomon$ 
Wynne:rakudo colomon$ ./perl6 --target=pir
> say 1, 2 X~ 'a', 'b';

.HLL "perl6"

.namespace []
.sub "_block11"  :anon :subid("10_1268960012.49592")
    .param pmc param_32 :slurpy
.annotate "line", 0
    .const 'Sub' $P15 = "11_1268960012.49592" 
    capture_lex $P15
.annotate "line", 1
    get_hll_global $P13, "!UNIT_START"
    .const 'Sub' $P15 = "11_1268960012.49592" 
    capture_lex $P15
    .lex "@_", param_32
    .tailcall $P13($P15, param_32)
    .const 'Sub' $P37 = "13_1268960012.49592" 
    .return ($P37)
.end


.HLL "perl6"

.namespace []
.sub "_block14"  :anon :subid("11_1268960012.49592") :outer("10_1268960012.49592")
.annotate "line", 1
    .local pmc true
    true = get_hll_global 'True'
    .lex "__CANDIDATE_LIST__", $P16
    find_lex_skip_current $P17, "$_"
    $P18 = new ['Perl6Scalar'], $P17
    setprop $P18, "rw", true
    .lex "$_", $P18
    find_lex_skip_current $P19, "$/"
    $P20 = new ['Perl6Scalar'], $P19
    setprop $P20, "rw", true
    .lex "$/", $P20
    find_lex_skip_current $P21, "$!"
    $P22 = new ['Perl6Scalar'], $P21
    setprop $P22, "rw", true
    .lex "$!", $P22
    $P23 = "&infix:<,>"(1, 2)
    new $P24, "Perl6Str"
    assign $P24, "a"
    new $P25, "Perl6Str"
    assign $P25, "b"
    $P26 = "&infix:<,>"($P24, $P25)
    $P27 = "&infix:<X~>"($P23, $P26)
    $P28 = "&say"($P27)
    .return ($P28)
.end


.HLL "perl6"

.namespace []
.sub "" :load :init :subid("post14") :outer("11_1268960012.49592")
.annotate "line", 1
    .const 'Sub' $P15 = "11_1268960012.49592" 
    .local pmc block
    set block, $P15
    find_sub_not_null $P29, "&callwith"
    find_sub_not_null $P30, "&infix:<~>"
    $P31 = $P29."assuming"($P30)
    set_global "&infix:<X~>", $P31
.end


.HLL "perl6"

.namespace []
.sub "_block33" :load :init :anon :subid("12_1268960012.49592")
.annotate "line", 1
    $P35 = "!fire_phasers"("CHECK")
    .return ($P35)
.end


.HLL "perl6"

.namespace []
.sub "_block36" :load :anon :subid("13_1268960012.49592")
.annotate "line", 1
    .const 'Sub' $P38 = "10_1268960012.49592" 
    $P39 = "!UNIT_START"($P38)
    .return ($P39)
.end