cvsuser 03/11/18 23:26:55
Modified: imcc pbc.c
Log:
No more lablels that look like comments.
Add a bit of trace.
Revision Changes Path
1.58 +9 -2 parrot/imcc/pbc.c
Index: pbc.c
===================================================================
RCS file: /cvs/public/parrot/imcc/pbc.c,v
retrieving revision 1.57
retrieving revision 1.58
diff -u -w -r1.57 -r1.58
--- pbc.c 13 Nov 2003 07:05:00 -0000 1.57
+++ pbc.c 19 Nov 2003 07:26:55 -0000 1.58
@@ -405,7 +405,7 @@
addr->name);
glabel = addr->name;
/* append inter_cs jump */
- sprintf(buf, "#isc_%d", globals.inter_seg_n++);
+ sprintf(buf, "_#isc_%d", globals.inter_seg_n++);
addr->name = str_dup(buf);
INS_LABEL(unit, addr, 1);
/* this is the new location */
@@ -829,6 +829,10 @@
static struct PackFile_Debug *debug_seg;
static int ins_line;
+#if IMC_TRACE_HIGH
+ PIO_eprintf(NULL, "e_pbc_emit\n");
+#endif
+
/* first instruction, do initialisation ... */
if (ins == unit->instructions) {
int code_size, ins_size;
@@ -872,6 +876,9 @@
if (ins->op && *ins->op) {
/* fixup local jumps */
SymReg *addr, *r;
+#if IMC_TRACE
+ PIO_eprintf(NULL, "emit_pbc: op [%d %s]\n", ins->opnum, ins->op);
+#endif
if ((addr = get_branch_reg(ins)) != 0 && !(addr->type & VTREGISTER)) {
SymReg *label = _get_sym(globals.cs->subs->labels, addr->name);
/* maybe global */
@@ -932,7 +939,7 @@
debug(interpreter, DEBUG_PBC," %d", pc[-1]);
break;
default:
- fatal(1, "e-pbc_emit", "unknwon argtype\n");
+ fatal(1, "e-pbc_emit", "unknown argtype in parrot op\n");
break;
}
}
