@@ -8,8 +8,8 @@ class NQP::World is HLL::World {
8
8
9
9
# Set of code objects that need to be fixed up if dynamic compilation
10
10
# takes place (that is, compiling parts of the program early during
11
- # compile time because they're needed at a BEGIN phase). Maps subid
12
- # to a list of code objects.
11
+ # compile time because they're needed at a BEGIN phase). Maps per-
12
+ # compilation unit ID to a list of code objects.
13
13
has % ! code_objects_to_fix_up ;
14
14
15
15
# Mapping of QAST::Stmts node containing fixups, keyed by sub ID. If
@@ -253,7 +253,7 @@ class NQP::World is HLL::World {
253
253
# Tag it as a static code ref and add it to the root code refs set.
254
254
pir::setprop__vPsP($ dummy , ' STATIC_CODE_REF' , $ dummy );
255
255
$ code_ref_idx := self . add_root_code_ref($ dummy , $ past );
256
- % ! code_stub_sc_idx {$ past . subid ()} := $ code_ref_idx ;
256
+ % ! code_stub_sc_idx {$ past . cuid ()} := $ code_ref_idx ;
257
257
$ past <compile_time_dummy > := $ dummy ;
258
258
259
259
# Attach PAST as a property to the stub code.
@@ -263,10 +263,10 @@ class NQP::World is HLL::World {
263
263
# routines. We need to handle their cloning and maintain the fixup
264
264
# list.
265
265
if $ have_code_type {
266
- % ! code_object_fixup_list {$ past . subid ()} := $ fixups ;
266
+ % ! code_object_fixup_list {$ past . cuid ()} := $ fixups ;
267
267
if self . is_precompilation_mode() {
268
268
pir::setprop__vPsP($ dummy , ' CLONE_CALLBACK' , sub ($ orig , $ clone , $ code_obj ) {
269
- % ! code_objects_to_fix_up {$ past . subid ()}. push ($ code_obj );
269
+ % ! code_objects_to_fix_up {$ past . cuid ()}. push ($ code_obj );
270
270
});
271
271
}
272
272
else {
@@ -286,7 +286,7 @@ class NQP::World is HLL::World {
286
286
));
287
287
288
288
# Add to dynamic compilation fixup list.
289
- % ! code_objects_to_fix_up {$ past . subid ()}. push ($ code_obj );
289
+ % ! code_objects_to_fix_up {$ past . cuid ()}. push ($ code_obj );
290
290
});
291
291
}
292
292
}
@@ -328,7 +328,7 @@ class NQP::World is HLL::World {
328
328
));
329
329
330
330
# Add it to the dynamic compilation fixup todo list.
331
- % ! code_objects_to_fix_up {$ past . subid ()} := [$ code_obj ];
331
+ % ! code_objects_to_fix_up {$ past . cuid ()} := [$ code_obj ];
332
332
333
333
$ code_obj
334
334
}
0 commit comments