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
  
  
  

Reply via email to