cvsuser 03/11/18 23:26:23
Modified: imcc instructions.c
Log:
A bit of trace.
Revision Changes Path
1.51 +7 -0 parrot/imcc/instructions.c
Index: instructions.c
===================================================================
RCS file: /cvs/public/parrot/imcc/instructions.c,v
retrieving revision 1.50
retrieving revision 1.51
diff -u -w -r1.50 -r1.51
--- instructions.c 17 Nov 2003 00:48:03 -0000 1.50
+++ instructions.c 19 Nov 2003 07:26:22 -0000 1.51
@@ -365,6 +365,10 @@
int i;
int len;
+#if IMC_TRACE
+ PIO_eprintf(NULL, "ins_print\n");
+#endif
+
if (!ins->r[0] || !strchr(ins->fmt, '%')) { /* comments, labels and such */
return fprintf(fd, "%s", ins->fmt);
}
@@ -467,6 +471,9 @@
e_file_emit(void *param, IMC_Unit * unit, Instruction * ins)
{
UNUSED(param);
+#if IMC_TRACE
+ PIO_eprintf(NULL, "e_file_emit\n");
+#endif
if ((ins->type & ITLABEL) || ! *ins->op)
ins_print(stdout, ins);
else {
