cvsuser 05/03/29 01:25:14
Modified: src trace.c
Log:
trace output cosmentics
Revision Changes Path
1.72 +5 -5 parrot/src/trace.c
Index: trace.c
===================================================================
RCS file: /cvs/public/parrot/src/trace.c,v
retrieving revision 1.71
retrieving revision 1.72
diff -u -r1.71 -r1.72
--- trace.c 9 Mar 2005 14:52:01 -0000 1.71
+++ trace.c 29 Mar 2005 09:25:13 -0000 1.72
@@ -1,6 +1,6 @@
/*
Copyright: 2001-2003 The Perl Foundation. All Rights Reserved.
-$Id: trace.c,v 1.71 2005/03/09 14:52:01 leo Exp $
+$Id: trace.c,v 1.72 2005/03/29 09:25:13 leo Exp $
=head1 NAME
@@ -85,21 +85,21 @@
}
}
else if (pmc->vtable->base_type == enum_class_Boolean) {
- PIO_eprintf(interpreter, "Boolean=PMC(%#p: %d",
+ PIO_eprintf(interpreter, "Boolean=PMC(%#p: %d)",
pmc, PMC_int_val(pmc));
}
else if (pmc->vtable->base_type == enum_class_Integer) {
- PIO_eprintf(interpreter, "Integer=PMC(%#p: %d",
+ PIO_eprintf(interpreter, "Integer=PMC(%#p: %d)",
pmc, PMC_int_val(pmc));
}
else if (pmc->vtable->base_type == enum_class_BigInt) {
STRING *s = VTABLE_get_string(interpreter, pmc);
- PIO_eprintf(interpreter, "BigInt=PMC(%#p: %Ss",
+ PIO_eprintf(interpreter, "BigInt=PMC(%#p: %Ss)",
pmc, s);
}
else if (pmc->vtable->base_type == enum_class_Complex) {
STRING *s = VTABLE_get_string(interpreter, pmc);
- PIO_eprintf(interpreter, "Complex=PMC(%#p: (%Ss)",
+ PIO_eprintf(interpreter, "Complex=PMC(%#p: %Ss)",
pmc, s);
}
else if (pmc->vtable->base_type == enum_class_PerlUndef