gistfile1.txt

pmichaud@orange:~/ng$ ./perl6 --target=pir
> my $a = 3;  $a += 3;  $a /= 2;

.HLL "perl6"

.namespace []
.sub "_block11"  :anon :subid("10_1257087074.8071")
.annotate "line", 1
    new $P13, "ObjectRef"
    get_hll_global $P14, ["Bool"], "True"
    setprop $P13, "rw", $P14
    .lex "$a", $P13
    find_lex $P15, "$a"
    "&infix:<=>"($P15, 3)
    find_lex $P16, "$a"
    "&infix:<+=>"($P16, 3)
    find_lex $P17, "$a"
    $P18 = "&infix:</=>"($P17, 2)
    .return ($P18)
.end


.HLL "perl6"

.namespace []
.sub "" :load :init :subid("post11") :outer("10_1257087074.8071")
.annotate "line", 0
    .const 'Sub' $P12 = "10_1257087074.8071" 
    .local pmc block
    set block, $P12
    "!gen_assign_metaop"("+")
    "!gen_assign_metaop"("/")
.end


>