6 std::ostream &operator<<(std::ostream &out, const string *str)
8 for(cell i = 0; i < string_capacity(str); i++)
9 out << (char)str->nth(i);
13 void factor_vm::print_word(word *word, cell nesting)
15 if(tagged<object>(word->vocabulary).type_p(STRING_TYPE))
16 std::cout << untag<string>(word->vocabulary) << ":";
18 if(tagged<object>(word->name).type_p(STRING_TYPE))
19 std::cout << untag<string>(word->name);
22 std::cout << "#<not a string: ";
23 print_nested_obj(word->name,nesting);
28 void factor_vm::print_factor_string(string *str)
30 std::cout << '"' << str << '"';
33 void factor_vm::print_array(array *array, cell nesting)
35 cell length = array_capacity(array);
39 if(length > 10 && !full_output)
47 for(i = 0; i < length; i++)
50 print_nested_obj(array_nth(array,i),nesting);
57 void factor_vm::print_tuple(tuple *tuple, cell nesting)
59 tuple_layout *layout = untag<tuple_layout>(tuple->layout);
60 cell length = to_fixnum(layout->size);
63 print_nested_obj(layout->klass,nesting);
66 if(length > 10 && !full_output)
74 for(cell i = 0; i < length; i++)
77 print_nested_obj(tuple->data()[i],nesting);
84 void factor_vm::print_nested_obj(cell obj, fixnum nesting)
86 if(nesting <= 0 && !full_output)
94 switch(tagged<object>(obj).type())
97 std::cout << untag_fixnum(obj);
100 print_word(untag<word>(obj),nesting - 1);
103 print_factor_string(untag<string>(obj));
110 print_tuple(untag<tuple>(obj),nesting - 1);
115 print_array(untag<array>(obj),nesting - 1);
120 quot = untag<quotation>(obj);
121 print_array(untag<array>(quot->array),nesting - 1);
125 std::cout << "#<type " << tagged<object>(obj).type() << " @ ";
126 std::cout << std::hex << obj << std::dec << ">";
131 void factor_vm::print_obj(cell obj)
133 print_nested_obj(obj,10);
136 void factor_vm::print_objects(cell *start, cell *end)
138 for(; start <= end; start++)
141 std::cout << std::endl;
145 void factor_vm::print_datastack()
147 std::cout << "==== DATA STACK:\n";
148 print_objects((cell *)ctx->datastack_region->start,(cell *)ctx->datastack);
151 void factor_vm::print_retainstack()
153 std::cout << "==== RETAIN STACK:\n";
154 print_objects((cell *)ctx->retainstack_region->start,(cell *)ctx->retainstack);
157 struct stack_frame_printer {
160 explicit stack_frame_printer(factor_vm *parent_) : parent(parent_) {}
161 void operator()(stack_frame *frame)
163 std::cout << "frame: " << std::hex << (cell)frame << std::dec << std::endl;
164 std::cout << "executing: ";
165 parent->print_obj(parent->frame_executing(frame));
166 std::cout << std::endl;
167 std::cout << "scan: ";
168 parent->print_obj(parent->frame_scan(frame));
169 std::cout << std::endl;
170 std::cout << "word/quot addr: ";
171 std::cout << std::hex << (cell)parent->frame_executing(frame) << std::dec;
172 std::cout << std::endl;
173 std::cout << "word/quot xt: ";
174 std::cout << std::hex << (cell)frame->xt << std::dec;
175 std::cout << std::endl;
176 std::cout << "return address: ";
177 std::cout << std::hex << (cell)FRAME_RETURN_ADDRESS(frame,parent) << std::dec;
178 std::cout << std::endl;
182 void factor_vm::print_callstack()
184 std::cout << "==== CALL STACK:\n";
185 stack_frame_printer printer(this);
186 iterate_callstack(ctx,printer);
189 struct padded_address {
192 explicit padded_address(cell value_) : value(value_) {}
195 std::ostream &operator<<(std::ostream &out, const padded_address &value)
197 char prev = out.fill('0');
198 out.width(sizeof(cell) * 2);
199 out << std::hex << value.value << std::dec;
204 void factor_vm::dump_cell(cell x)
206 std::cout << padded_address(x) << ": ";
208 std::cout << padded_address(x) << " tag " << TAG(x) << std::endl;
211 void factor_vm::dump_memory(cell from, cell to)
215 for(; from <= to; from += sizeof(cell))
219 template<typename Generation>
220 void factor_vm::dump_generation(const char *name, Generation *gen)
222 std::cout << name << ": ";
223 std::cout << "Start=" << gen->start;
224 std::cout << ", size=" << gen->size;
225 std::cout << ", end=" << gen->end;
226 std::cout << std::endl;
229 void factor_vm::dump_generations()
231 dump_generation("Nursery",&nursery);
232 dump_generation("Aging",data->aging);
233 dump_generation("Tenured",data->tenured);
235 std::cout << "Cards:";
236 std::cout << "base=" << (cell)data->cards << ", ";
237 std::cout << "size=" << (cell)(data->cards_end - data->cards) << std::endl;
240 struct object_dumper {
244 explicit object_dumper(factor_vm *parent_, cell type_) :
245 parent(parent_), type(type_) {}
247 void operator()(object *obj)
249 if(type == TYPE_COUNT || obj->type() == type)
251 std::cout << padded_address((cell)obj) << " ";
252 parent->print_nested_obj(tag_dynamic(obj),2);
253 std::cout << std::endl;
258 void factor_vm::dump_objects(cell type)
261 object_dumper dumper(this,type);
265 struct data_reference_slot_visitor {
270 explicit data_reference_slot_visitor(cell look_for_, object *obj_, factor_vm *parent_) :
271 look_for(look_for_), obj(obj_), parent(parent_) { }
273 void operator()(cell *scan)
275 if(look_for == *scan)
277 std::cout << padded_address((cell)obj) << " ";
278 parent->print_nested_obj(tag_dynamic(obj),2);
279 std::cout << std::endl;
284 struct data_reference_object_visitor {
288 explicit data_reference_object_visitor(cell look_for_, factor_vm *parent_) :
289 look_for(look_for_), parent(parent_) {}
291 void operator()(object *obj)
293 data_reference_slot_visitor visitor(look_for,obj,parent);
294 obj->each_slot(visitor);
298 void factor_vm::find_data_references(cell look_for)
300 data_reference_object_visitor visitor(look_for,this);
301 each_object(visitor);
304 struct code_block_printer {
306 cell reloc_size, parameter_size;
308 explicit code_block_printer(factor_vm *parent_) :
309 parent(parent_), reloc_size(0), parameter_size(0) {}
311 void operator()(code_block *scan, cell size)
318 reloc_size += parent->object_size(scan->relocation);
319 parameter_size += parent->object_size(scan->parameters);
321 if(parent->code->marked_p(scan))
324 status = "allocated";
326 std::cout << std::hex << (cell)scan << std::dec << " ";
327 std::cout << std::hex << size << std::dec << " ";
328 std::cout << status << std::endl;
333 /* Dump all code blocks for debugging */
334 void factor_vm::dump_code_heap()
336 code_block_printer printer(this);
337 code->allocator->iterate(printer);
338 std::cout << printer.reloc_size << " bytes used by relocation tables\n";
339 std::cout << printer.parameter_size << " bytes used by parameter tables\n";
342 void factor_vm::factorbug()
346 std::cout << "Low level debugger disabled\n";
350 /* open_console(); */
352 std::cout << "Starting low level debugger...\n";
353 std::cout << " Basic commands:\n";
354 std::cout << "q -- continue executing Factor - NOT SAFE\n";
355 std::cout << "im -- save image to fep.image\n";
356 std::cout << "x -- exit Factor\n";
357 std::cout << " Advanced commands:\n";
358 std::cout << "d <addr> <count> -- dump memory\n";
359 std::cout << "u <addr> -- dump object at tagged <addr>\n";
360 std::cout << ". <addr> -- print object at tagged <addr>\n";
361 std::cout << "t -- toggle output trimming\n";
362 std::cout << "s r -- dump data, retain stacks\n";
363 std::cout << ".s .r .c -- print data, retain, call stacks\n";
364 std::cout << "e -- dump environment\n";
365 std::cout << "g -- dump generations\n";
366 std::cout << "data -- data heap dump\n";
367 std::cout << "words -- words dump\n";
368 std::cout << "tuples -- tuples dump\n";
369 std::cout << "refs <addr> -- find data heap references to object\n";
370 std::cout << "push <addr> -- push object on data stack - NOT SAFE\n";
371 std::cout << "code -- code heap dump\n";
373 bool seen_command = false;
379 std::cout << "READY\n";
382 if(scanf("%1000s",cmd) <= 0)
386 /* If we exit with an EOF immediately, then
387 dump stacks. This is useful for builder and
388 other cases where Factor is run with stdin
389 redirected to /dev/null */
402 if(strcmp(cmd,"d") == 0)
404 cell addr = read_cell_hex();
405 if(scanf(" ") < 0) break;
406 cell count = read_cell_hex();
407 dump_memory(addr,addr+count);
409 else if(strcmp(cmd,"u") == 0)
411 cell addr = read_cell_hex();
412 cell count = object_size(addr);
413 dump_memory(addr,addr+count);
415 else if(strcmp(cmd,".") == 0)
417 cell addr = read_cell_hex();
419 std::cout << std::endl;
421 else if(strcmp(cmd,"t") == 0)
422 full_output = !full_output;
423 else if(strcmp(cmd,"s") == 0)
424 dump_memory(ctx->datastack_region->start,ctx->datastack);
425 else if(strcmp(cmd,"r") == 0)
426 dump_memory(ctx->retainstack_region->start,ctx->retainstack);
427 else if(strcmp(cmd,".s") == 0)
429 else if(strcmp(cmd,".r") == 0)
431 else if(strcmp(cmd,".c") == 0)
433 else if(strcmp(cmd,"e") == 0)
435 for(cell i = 0; i < special_object_count; i++)
436 dump_cell((cell)&special_objects[i]);
438 else if(strcmp(cmd,"g") == 0)
440 else if(strcmp(cmd,"q") == 0)
442 else if(strcmp(cmd,"x") == 0)
444 else if(strcmp(cmd,"im") == 0)
445 save_image(STRING_LITERAL("fep.image"));
446 else if(strcmp(cmd,"data") == 0)
447 dump_objects(TYPE_COUNT);
448 else if(strcmp(cmd,"refs") == 0)
450 cell addr = read_cell_hex();
451 std::cout << "Data heap references:\n";
452 find_data_references(addr);
453 std::cout << std::endl;
455 else if(strcmp(cmd,"words") == 0)
456 dump_objects(WORD_TYPE);
457 else if(strcmp(cmd,"tuples") == 0)
458 dump_objects(TUPLE_TYPE);
459 else if(strcmp(cmd,"push") == 0)
461 cell addr = read_cell_hex();
464 else if(strcmp(cmd,"code") == 0)
467 std::cout << "unknown command\n";
471 void factor_vm::primitive_die()
473 std::cout << "The die word was called by the library. Unless you called it yourself,\n";
474 std::cout << "you have triggered a bug in Factor. Please report.\n";