Ticket #757: async.pir

File async.pir, 0.9 KB (added by tene, 5 years ago)
Line 
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