cvs commit: parrot/src trace.c

[Leopold Toetsch]

cvsuser     05/03/09 03:00:37

  Modified:    src      trace.c
  Log:
  print Integer val in trace
  
  Revision  Changes    Path
  1.70      +5 -1      parrot/src/trace.c
  
  Index: trace.c
  ===================================================================
  RCS file: /cvs/public/parrot/src/trace.c,v
  retrieving revision 1.69
  retrieving revision 1.70
  diff -u -r1.69 -r1.70
  --- trace.c   24 Nov 2004 04:26:42 -0000      1.69
  +++ trace.c   9 Mar 2005 11:00:37 -0000       1.70
  @@ -1,6 +1,6 @@
   /*
   Copyright: 2001-2003 The Perl Foundation.  All Rights Reserved.
  -$Id: trace.c,v 1.69 2004/11/24 04:26:42 leo Exp $
  +$Id: trace.c,v 1.70 2005/03/09 11:00:37 leo Exp $
   
   =head1 NAME
   
  @@ -88,6 +88,10 @@
           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",
  +                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",