cvs commit: parrot/src trace.c

[Leopold Toetsch]

cvsuser     03/11/19 01:57:36

  Modified:    src      trace.c
  Log:
  allow PMCNULL
  
  Revision  Changes    Path
  1.44      +2 -2      parrot/src/trace.c
  
  Index: trace.c
  ===================================================================
  RCS file: /cvs/public/parrot/src/trace.c,v
  retrieving revision 1.43
  retrieving revision 1.44
  diff -u -w -r1.43 -r1.44
  --- trace.c   23 Oct 2003 17:48:59 -0000      1.43
  +++ trace.c   19 Nov 2003 09:57:36 -0000      1.44
  @@ -1,7 +1,7 @@
   /* trace.c
    *  Copyright: 2001-2003 The Perl Foundation.  All Rights Reserved.
    *  CVS Info
  - *     $Id: trace.c,v 1.43 2003/10/23 17:48:59 robert Exp $
  + *     $Id: trace.c,v 1.44 2003/11/19 09:57:36 leo Exp $
    *  Overview:
    *     Tracing support for runops_cores.c.
    *  Data Structure and Algorithms:
  @@ -21,7 +21,7 @@
   void
   trace_pmc_dump(struct Parrot_Interp *interpreter, PMC* pmc)
   {
  -    if(pmc) {
  +    if (pmc && pmc != PMCNULL) {
           if(pmc->vtable) {
               if (pmc->vtable->base_type == enum_class_PerlString) {
                   PIO_eprintf(interpreter, "%S=PMC(%#p Str:\"%Ps\")",