File tree Expand file tree Collapse file tree 3 files changed +7
-13
lines changed Expand file tree Collapse file tree 3 files changed +7
-13
lines changed Original file line number Diff line number Diff line change @@ -209,9 +209,9 @@ class HLL::Backend::MoarVM {
209
209
}
210
210
else {
211
211
my $ boot_mode := % adverbs <bootstrap > ?? 1 !! 0 ;
212
- __MVM__usecompileehllconfig () if $ boot_mode ;
212
+ nqp ::usecompileehllconfig () if $ boot_mode ;
213
213
my $ result := $ assmblr . assemble_and_load($ mast );
214
- __MVM__usecompilerhllconfig () if $ boot_mode ;
214
+ nqp ::usecompilerhllconfig () if $ boot_mode ;
215
215
$ result
216
216
}
217
217
}
@@ -221,15 +221,15 @@ class HLL::Backend::MoarVM {
221
221
}
222
222
223
223
method is_compunit ($ cuish ) {
224
- __MVM__iscompunit ($ cuish )
224
+ nqp ::iscompunit ($ cuish )
225
225
}
226
226
227
227
method compunit_mainline ($ cu ) {
228
- __MVM__compunitmainline ($ cu )
228
+ nqp ::compunitmainline ($ cu )
229
229
}
230
230
231
231
method compunit_coderefs ($ cu ) {
232
- __MVM__compunitcodes ($ cu )
232
+ nqp ::compunitcodes ($ cu )
233
233
}
234
234
}
235
235
Original file line number Diff line number Diff line change @@ -1853,11 +1853,11 @@ class MASTBytecodeAssembler {
1853
1853
}
1854
1854
1855
1855
method assemble_to_file ($ mast , $ file ) {
1856
- __MVM__masttofile ($ mast , self . node_hash(), $ file )
1856
+ nqp ::masttofile ($ mast , self . node_hash(), $ file )
1857
1857
}
1858
1858
1859
1859
method assemble_and_load ($ mast ) {
1860
- __MVM__masttocu ($ mast , self . node_hash())
1860
+ nqp ::masttocu ($ mast , self . node_hash())
1861
1861
}
1862
1862
}
1863
1863
Original file line number Diff line number Diff line change @@ -1368,12 +1368,6 @@ sub arrange_args(@in) {
1368
1368
}
1369
1369
1370
1370
my $ call_gen := sub ($ qastcomp , $ op ) {
1371
- # Cheat for __MVM__ => nqp::foo
1372
- if nqp :: substr ($ op . name , 0 , 8 ) eq ' &__MVM__' {
1373
- my $ realname := nqp :: substr ($ op . name , 8 );
1374
- return $ qastcomp . as_mast(QAST ::Op. new ( : op($ realname ), | $ op . list ));
1375
- }
1376
-
1377
1371
# Work out what callee is.
1378
1372
my $ callee ;
1379
1373
my @ args := $ op . list;
You can’t perform that action at this time.
0 commit comments