1 | .sub '' :anon :init :load |
---|
2 | #load_bytecode 'perl6.pbc' |
---|
3 | .end |
---|
4 | |
---|
5 | .HLL "perl6" |
---|
6 | |
---|
7 | .namespace [] |
---|
8 | .sub "_block11" :main :anon :subid("10_1244876622") |
---|
9 | .param pmc param_34 :slurpy |
---|
10 | .const 'Sub' $P15 = "11_1244876622" |
---|
11 | $P15() |
---|
12 | .return () |
---|
13 | .end |
---|
14 | |
---|
15 | |
---|
16 | .HLL "perl6" |
---|
17 | |
---|
18 | .namespace [] |
---|
19 | |
---|
20 | .sub 'async' |
---|
21 | .param pmc block |
---|
22 | .local pmc thread |
---|
23 | say 'async 1' |
---|
24 | thread = root_new ['parrot';'ParrotThread'] |
---|
25 | say 'async 2' |
---|
26 | thread.'run_clone'(block) |
---|
27 | say 'async 3' |
---|
28 | sleep 4 |
---|
29 | .return (thread) |
---|
30 | .end |
---|
31 | |
---|
32 | .sub "_block14" :anon :subid("11_1244876622") |
---|
33 | .annotate "line", 1 |
---|
34 | .include "interpinfo.pasm" |
---|
35 | .const 'Sub' $P22 = "12_1244876622" |
---|
36 | capture_lex $P22 |
---|
37 | say 'before async' |
---|
38 | $P31 = "async"($P22) |
---|
39 | say 'after async' |
---|
40 | .return () |
---|
41 | .end |
---|
42 | |
---|
43 | |
---|
44 | .HLL "perl6" |
---|
45 | |
---|
46 | .namespace [] |
---|
47 | .sub "_block21" :anon :subid("12_1244876622") :outer("11_1244876622") |
---|
48 | sleep 1 |
---|
49 | say 'hi' |
---|
50 | .return () |
---|
51 | .end |
---|