Limit ThreadLabel API use to DEBUG only.
/* initialise the stable pointer table */
initStablePtrTable();
/* initialise the stable pointer table */
initStablePtrTable();
/* initialise thread label table (tso->char*) */
initThreadLabelTable();
/* initialise thread label table (tso->char*) */
initThreadLabelTable();
#if defined(PROFILING) || defined(DEBUG)
initProfiling1();
#if defined(PROFILING) || defined(DEBUG)
initProfiling1();
for (t = all_threads; t != END_TSO_QUEUE; t = t->global_link) {
debugBelch("\tthread %d @ %p ", t->id, (void *)t);
for (t = all_threads; t != END_TSO_QUEUE; t = t->global_link) {
debugBelch("\tthread %d @ %p ", t->id, (void *)t);
label = lookupThreadLabel(t->id);
if (label) debugBelch("[\"%s\"] ",(char *)label);
label = lookupThreadLabel(t->id);
if (label) debugBelch("[\"%s\"] ",(char *)label);
printThreadStatus(t);
debugBelch("\n");
}
printThreadStatus(t);
debugBelch("\n");
}
+#if defined(DEBUG)
+/* to the end */
static HashTable * threadLabels = NULL;
void
static HashTable * threadLabels = NULL;
void