rakudo (owner)

Revisions

gist: 223273 Download_button fork
public
Public Clone URL: git://gist.github.com/223273.git
Embed All Files: show embed
Text only #
raw 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23

pmichaud@orange:~/ng$ ./perl6 --target=pir
> our $x = 3;
 
.HLL "perl6"
 
.namespace []
.sub "_block11"  :anon :subid("10_1257026635.18483")
.annotate "line", 1
    get_global $P13, "$x"
    unless_null $P13, vivify_11
    new $P13, "Perl6Scalar"
    get_hll_global $P14, ["Bool"], "True"
    setprop $P13, "rw", $P14
    set_global "$x", $P13
  vivify_11:
    .lex "$x", $P13
    find_lex $P15, "$x"
    $P16 = "&infix:<=>"($P15, 3)
    .return ($P16)
.end