steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

VM: gc required here because we are iterating all objects

db4
Björn Lindqvist 2015-08-18 07:58:44 +02:00 committed by John Benediktsson
parent 7f545271f4
commit 1045f41778
1 changed files with 2 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
vm/debug.cpp
View File

@ -299,6 +299,7 @@ void factor_vm::dump_objects(ostream& out, cell type) {
} }
void factor_vm::find_data_references(ostream& out, cell look_for) { void factor_vm::find_data_references(ostream& out, cell look_for) {
primitive_full_gc();
auto find_data_ref_func = [&](object* obj, cell* slot) { auto find_data_ref_func = [&](object* obj, cell* slot) {
if (look_for == *slot) { if (look_for == *slot) {
out << padded_address((cell)obj) << " "; out << padded_address((cell)obj) << " ";
@ -310,6 +311,7 @@ void factor_vm::find_data_references(ostream& out, cell look_for) {
} }
void factor_vm::dump_edges(ostream& out) { void factor_vm::dump_edges(ostream& out) {
primitive_full_gc();
auto dump_edges_func = [&](object* obj, cell* scan) { auto dump_edges_func = [&](object* obj, cell* scan) {
if (TAG(*scan) > F_TYPE) { if (TAG(*scan) > F_TYPE) {
out << (void*)tag_dynamic(obj); out << (void*)tag_dynamic(obj);