pike.git / src / las.c

version» Context lines:

pike.git/src/las.c:1:   /*\   ||| This file is part of Pike. For copyright information see COPYRIGHT.   ||| Pike is distributed under GPL, LGPL and MPL. See the file COPYING   ||| for more information.   \*/   /**/   #include "global.h" - RCSID("$Id: las.c,v 1.299 2002/09/30 12:45:56 marcus Exp $"); + RCSID("$Id: las.c,v 1.300 2002/10/07 15:54:07 marcus 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:568: Inside #if undefined(PIKE_DEBUG)
     #ifndef PIKE_DEBUG    if(cumulative_parse_error)    {   #endif       for(tmp2=node_s_blocks;tmp2;tmp2=tmp2->next) e+=tmp2->used;    if(e)    {    int e2=e; -  for(tmp2=node_s_blocks;tmp2;tmp2=tmp2->next) +  struct node_s_block *nextblk; +  for(tmp2=node_s_blocks;tmp2;tmp2=nextblk)    { -  for(e=0;e<NODES;e++) +  int n = tmp2->used; +  nextblk = tmp2->next; +  for(e=0;n && e<NODES;e++)    {    if (tmp2->x[e].token != USHRT_MAX)    {    tmp=tmp2->x+e;   #ifdef PIKE_DEBUG    if(!cumulative_parse_error)    {    fprintf(stderr,"Free node at %p, (%s:%d) (token=%d).\n",    (void *)tmp, tmp->current_file->str, tmp->line_number,    tmp->token);
pike.git/src/las.c:614: Inside #if defined(SHARED_NODES) and #if defined(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); +  --n;    }    }    }    } - #if defined(PIKE_DEBUG) + #ifdef PIKE_DEBUG    if(!cumulative_parse_error)    Pike_fatal("Failed to free %d nodes when compiling!\n",e2);   #endif    }   #ifndef PIKE_DEBUG    }   #endif    free_all_node_s_blocks();    cumulative_parse_error=0;