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.213 2000/09/14 11:33:35 grubba Exp $"); + RCSID("$Id: las.c,v 1.214 2000/09/15 11:44:50 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:590: Inside #if defined(PIKE_DEBUG) and #if defined(SHARED_NODES)
   print_tree(n);    fatal("token:%d, car:%p cdr:%p file:%s line:%d\n",    n->token, _CAR(n), _CDR(n), n->current_file->str, n->line_number);    }    }   #endif /* SHARED_NODES */   #endif /* PIKE_DEBUG */       debug_malloc_touch(n);    - #if defined(SHARED_NODES) && defined(PIKE_DEBUG) + #ifdef SHARED_NODES + #ifdef PIKE_DEBUG    if (n->refs) {    fatal("Node with refs left about to be killed: %8p\n", n);    } -  + #endif /* PIKE_DEBUG */    sub_node(dmalloc_touch(node *, n));   #endif /* SHARED_NODES */       switch(n->token)    {    case USHRT_MAX:    fatal("Freeing node again!\n");    break;       case F_CONSTANT: