pike.git / src / las.c

version» Context lines:

pike.git/src/las.c:1:   /*\   ||| This file a part of Pike, and is copyright by Fredrik Hubinette   ||| Pike is distributed as GPL (General Public License)   ||| See the files COPYING and DISCLAIMER for more information.   \*/   /**/   #include "global.h" - RCSID("$Id: las.c,v 1.105 1999/11/12 18:34:56 grubba Exp $"); + RCSID("$Id: las.c,v 1.106 1999/11/12 19:03:32 grubba Exp $");      #include "language.h"   #include "interpret.h"   #include "las.h"   #include "array.h"   #include "object.h"   #include "stralloc.h"   #include "dynamic_buffer.h"   #include "lex.h"   #include "pike_types.h"
pike.git/src/las.c:336: Inside #if defined(PIKE_DEBUG)
   }    /* else */   #endif    {    /* Free the node and be happy */    /* Make sure we don't free any nodes twice */    if(car_is_node(tmp)) _CAR(tmp)=0;    if(cdr_is_node(tmp)) _CDR(tmp)=0;   #ifdef SHARED_NODES    tmp->hash = hash_node(tmp); -  -  fprintf(stderr, "Freeing node that had %d refs.\n", tmp->refs); + #ifdef PIKE_DEBUG +  if (l_flag > 3) { +  fprintf(stderr, "Freeing node that had %d refs.\n", +  tmp->refs); +  } + #endif /* PIKE_DEBUG */    /* Force the node to be freed. */    tmp->refs = 1;   #endif /* SHARED_NODES */    debug_malloc_touch(tmp->type);    free_node(tmp);    }    }    }    }   #if defined(PIKE_DEBUG)