void ppxv(int x) {
bool oldVerbose = Verbose;
Verbose = true;
Oop o = (OopDesc*)x;
o.print();
Verbose = oldVerbose;
}
void find(int x) {
OopDesc** p = (OopDesc**) x;
if (ObjectHeap::contains_live(p)) {
Oop o = ObjectHeap::slow_object_start(p);
tty->print_cr("0x%p in object 0x%p", x, o.obj());
o.print();
} else if (ObjectHeap::contains(p)) {
tty->print_cr("0x%p inside dead region of ObjectHeap", x);
} else {
tty->print_cr("0x%p unknown location", x);
}
}
void Profiling_Tracer::record_for_profile(Oop meth, Oop rcvr, bool is_block) {
if (Logical_Core::num_cores > 1)
return;
static std::string lastSignature;
std::map<std::string, int>* profile;
#warning Stefan: warning, not threadsafe
get_profile(&profile);
static char buff[2024];
StringPrinter p(buff, 2023);
Oop klass = rcvr.fetchClass();
Oop sel, mclass;
bool have_sel_and_mclass = klass.as_object()->selector_and_class_of_method_in_me_or_ancestors(meth, &sel, &mclass);
if (!have_sel_and_mclass) return;
if (mclass == The_Squeak_Interpreter()->roots.nilObj)
mclass = rcvr.fetchClass();
rcvr.print(&p);
if (mclass != klass) {
p.printf("(");
bool is_meta;
Oop mclassName = mclass.as_object()->name_of_class_or_metaclass(&is_meta);
if (is_meta) p.printf("class ");
mclassName.as_object()->print_bytes(&p);
p.printf(")");
}
p.printf(">>");
sel.as_object()->print_bytes(&p);
if (is_block) p.printf("[]");
buff[2023] = 0;
std::string signature(buff);
if (lastSignature != signature) {
lastSignature = signature;
++(*profile)[lastSignature];
}
// STEFAN: a little hack to be able to get the printout during debugging, any better ways to do so?
static bool print_profile = false;
if (print_profile) {
this->print_profile(debug_printer);
}
}
void ppx(int x) {
Oop o = (OopDesc*)x;
o.print();
}
void Execution_Tracer::print_entries(Oop ents, Printer* p) {
Object_p eo = ents.as_object();
int n = eo->fetchWordLength() / e_N;
int x;
for (int i = 0; i < n; ++i) {
int rank = eo->fetchPointer(x = i * e_N + e_rank).integerValue();
p->printf("%3d on %2d: ", i - n, rank);
switch (eo->fetchPointer(i * e_N + e_kind).integerValue()) {
default: fatal(); break;
case k_proc: {
Oop process = eo->fetchPointer(i * e_N + e_process); assert(process.is_mem());
p->printf("switch to process 0x%x", process.as_untracked_object_ptr());
}
break;
case k_aux: {
int rank = eo->fetchPointer(i * e_N + e_rank).integerValue();
int aux1 = eo->fetchPointer(i * e_N + e_aux1).integerValue();
//int aux2 = eo->fetchPointer(i * e_N + e_aux2).integerValue();
int id = eo->fetchPointer(i * e_N + e_id ).integerValue();
// p->printf("on %d: aux1 0x%x aux2 0x%x id %d", rank, aux1, aux2, id);
p->printf("on %d: aux1 %s id %d", rank, aux1, id);
}
break;
case k_gc:
p->printf("gc: %d", eo->fetchPointer(i * e_N + e_gc).integerValue());
break;
case k_rcved_interp:
p->printf("received interp");
break;
case k_bc: {
Oop meth = eo->fetchPointer(i * e_N + e_method); assert(meth.is_mem());
Oop rcvr = eo->fetchPointer(i * e_N + e_rcvr);
int pc = eo->fetchPointer(i * e_N + e_pc ).integerValue();
bool is_block = eo->fetchPointer(i * e_N + e_is_block) == The_Squeak_Interpreter()->roots.trueObj;
int aux1 = eo->fetchPointer(i * e_N + e_aux1).integerValue();
int aux2 = eo->fetchPointer(i * e_N + e_aux2).integerValue();
Oop klass = rcvr.fetchClass();
Oop sel, mclass;
bool have_sel_and_mclass = klass.as_object()->selector_and_class_of_method_in_me_or_ancestors(meth, &sel, &mclass);
if (!have_sel_and_mclass) continue;
if (mclass == The_Squeak_Interpreter()->roots.nilObj)
mclass = rcvr.fetchClass();
p->printf("rcvr: "); rcvr.print(p);
if (mclass != klass) {
p->printf("(");
bool is_meta;
Oop mclassName = mclass.as_object()->name_of_class_or_metaclass(&is_meta);
if (is_meta) p->printf("class ");
mclassName.as_object()->print_bytes(p);
p->printf(")");
}
p->printf(" >> ");
sel.as_object()->print_bytes(p);
p->printf(is_block ? " [] " : " ");
p->printf(", pc: %d, ", pc);
Object_p mo = meth.as_object();
u_char bc = mo->first_byte_address()[pc];
The_Squeak_Interpreter()->printBC(bc, p);
p->printf(", bcCount %d", eo->fetchPointer(i * e_N + e_bcCount).integerValue());
if (aux1) p->printf(", aux1 = 0x%x", aux1);
if (aux1) p->printf(", aux1 = 0x%x", aux2);
}
break;
}
p->nl();
}
}