File tree Expand file tree Collapse file tree 1 file changed +0
-20
lines changed Expand file tree Collapse file tree 1 file changed +0
-20
lines changed Original file line number Diff line number Diff line change 25
25
.end
26
26
27
27
. sub ' ' :load :init :outer (' PAST_Outer' )
28
- # Create a serialization context for this compilation unit.
29
- .local pmc sc
30
- sc = nqp_create_sc " __PAST_CORE_SC__"
31
- nqp_push_compiling_sc sc
32
-
33
28
# Run the main block.
34
29
.const ' Sub' $P2 = ' PAST_Outer'
35
30
$P2 ()
39
34
. include ' src/cheats/parrot-sub.pir'
40
35
41
36
. sub ' ' :anon :load :init :outer (' PAST_Outer' ) :subid (' Imports' )
42
- # Also want the dumper.
43
37
load_bytecode ' dumper.pbc'
44
-
45
- .local pmc KnowHOW , how , PAST
46
- KnowHOW = get_knowhow
47
- PAST = KnowHOW . " new_type" (" name" = >" PAST" )
48
- how = get_how PAST
49
- how . " compose" (PAST )
50
-
51
- # Add PAST dummy NS to the SC.
52
- $P0 = nqp_get_sc " __PAST_CORE_SC__"
53
- nqp_set_sc_object " __PAST_CORE_SC__" , 0, PAST
54
- nqp_set_sc_for_object PAST , $P0
55
-
56
- # Pop SC off current SCs stack.
57
- nqp_pop_compiling_sc
58
38
.end
You can’t perform that action at this time.
0 commit comments