vm: initialize all_blocks set after initial fixup
parent
3868895b56
commit
0b94018d9f
|
@ -53,7 +53,6 @@ void factor_vm::load_code_heap(FILE *file, image_header *h, vm_parameters *p)
|
||||||
}
|
}
|
||||||
|
|
||||||
code->allocator->initial_free_list(h->code_size);
|
code->allocator->initial_free_list(h->code_size);
|
||||||
code->initialize_all_blocks_set();
|
|
||||||
}
|
}
|
||||||
|
|
||||||
struct startup_fixup {
|
struct startup_fixup {
|
||||||
|
@ -285,6 +284,8 @@ void factor_vm::load_image(vm_parameters *p)
|
||||||
fixup_data(data_offset,code_offset);
|
fixup_data(data_offset,code_offset);
|
||||||
fixup_code(data_offset,code_offset);
|
fixup_code(data_offset,code_offset);
|
||||||
|
|
||||||
|
code->initialize_all_blocks_set();
|
||||||
|
|
||||||
/* Store image path name */
|
/* Store image path name */
|
||||||
special_objects[OBJ_IMAGE] = allot_alien(false_object,(cell)p->image_path);
|
special_objects[OBJ_IMAGE] = allot_alien(false_object,(cell)p->image_path);
|
||||||
}
|
}
|
||||||
|
|
Loading…
Reference in New Issue