vm: initialize all_blocks set after initial fixup

db4
Joe Groff 2011-11-29 20:19:13 -08:00
parent 3868895b56
commit 0b94018d9f
1 changed files with 2 additions and 1 deletions

View File

@ -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->initialize_all_blocks_set();
}
struct startup_fixup {
@ -285,6 +284,8 @@ void factor_vm::load_image(vm_parameters *p)
fixup_data(data_offset,code_offset);
fixup_code(data_offset,code_offset);
code->initialize_all_blocks_set();
/* Store image path name */
special_objects[OBJ_IMAGE] = allot_alien(false_object,(cell)p->image_path);
}