We read every piece of feedback, and take your input very seriously.
To see all available qualifiers, see our documentation.
There was an error while loading. Please reload this page.
1 parent 384469f commit 0637faaCopy full SHA for 0637faa
src/vm/parrot/HLL/Backend.nqp
@@ -114,19 +114,24 @@ class HLL::Backend::Parrot {
114
115
method evalpmc($source, *%adverbs) {
116
my $compiler := nqp::getcomp('PIR');
117
- $compiler($source)
+ my $pbc := $compiler($source);
118
+ unless $pbc.is_initialized('init') {
119
+ for $pbc.subs_by_tag('init') -> $sub { $sub() }
120
+ $pbc.mark_initialized('init');
121
+ }
122
+ $pbc
123
}
124
125
method is_compunit($cuish) {
126
!pir::isa__IPs($cuish, 'String')
127
128
129
method compunit_mainline($cu) {
- $cu[0]
130
+ $cu.all_subs()[0]
131
132
133
method compunit_coderefs($cu) {
- $cu
134
+ $cu.all_subs();
135
136
137
method recursion_limit($limit) {
0 commit comments