cvsuser 04/04/03 00:35:29
Modified: imcc pbc.c
Log:
move debug message a bit
Revision Changes Path
1.71 +4 -3 parrot/imcc/pbc.c
Index: pbc.c
===================================================================
RCS file: /cvs/public/parrot/imcc/pbc.c,v
retrieving revision 1.70
retrieving revision 1.71
diff -u -w -r1.70 -r1.71
--- pbc.c 1 Apr 2004 12:59:27 -0000 1.70
+++ pbc.c 3 Apr 2004 08:35:28 -0000 1.71
@@ -634,9 +634,6 @@
}
else
real_name = r->name;
- debug(interpreter, DEBUG_PBC_CONST,
- "add_const_pmc_sub '%s' -> '%s' flags %d\n",
- r->name, real_name, r->pcc_sub->pragma);
/*
* TODO use serialize api if that is done
@@ -655,6 +652,10 @@
k = PDB_extend_const_table(interpreter);
interpreter->code->const_table->constants[k]->type = PFC_PMC;
interpreter->code->const_table->constants[k]->u.key = pfc->u.key;
+
+ debug(interpreter, DEBUG_PBC_CONST,
+ "add_const_pmc_sub '%s' -> '%s' flags %d color %d\n",
+ r->name, real_name, r->pcc_sub->pragma, k);
/*
* create entry in our fixup (=symbol) table
* the offset is the index in the constant table of this Sub
