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.212 2000/09/13 12:28:18 grubba Exp $"); + RCSID("$Id: las.c,v 1.213 2000/09/14 11:33:35 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:588: Inside #if defined(PIKE_DEBUG) and #if defined(SHARED_NODES)
   DO_NOT_WARN((unsigned long)hash),    DO_NOT_WARN((unsigned long)n->hash));    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 */    -  dmalloc_touch(node *, n); +  debug_malloc_touch(n);      #if defined(SHARED_NODES) && defined(PIKE_DEBUG)    if (n->refs) {    fatal("Node with refs left about to be killed: %8p\n", n);    }    sub_node(dmalloc_touch(node *, n));   #endif /* SHARED_NODES */       switch(n->token)    {
pike.git/src/las.c:647:    }   #endif /* SHARED_NODES */    }    backtrack:    while (n->parent && !cdr_is_node(n->parent)) {    /* Kill the node and backtrack */    node *dead = n;      #if defined(SHARED_NODES) && defined(PIKE_DEBUG)    if (dead->refs) { -  fatal("Killed node %08p still has refs: %d\n", dead, dead->refs); +  fatal("Killed node %p still has refs: %d\n", dead, dead->refs);    }   #endif /* SHARED_NODES && PIKE_DEBUG */       n = n->parent;       if(dead->type) free_string(dead->type);    if(dead->name) free_string(dead->name);   #ifdef PIKE_DEBUG    if(dead->current_file) free_string(dead->current_file);   #endif    dead->token=USHRT_MAX;    really_free_node_s(dead);    }    if (n->parent && cdr_is_node(n->parent)) {    /* Kill node and jump to the sibling. */    node *dead = n;      #if defined(SHARED_NODES) && defined(PIKE_DEBUG)    if (dead->refs) { -  fatal("Killed node %08p still has refs: %d\n", dead, dead->refs); +  fatal("Killed node %p still has refs: %d\n", dead, dead->refs);    }   #endif /* SHARED_NODES && PIKE_DEBUG */       n = n->parent;    if(dead->type) free_string(dead->type);    if(dead->name) free_string(dead->name);   #ifdef PIKE_DEBUG    if(dead->current_file) free_string(dead->current_file);   #endif    dead->token=USHRT_MAX;
pike.git/src/las.c:699: Inside #if defined(SHARED_NODES)
   continue;   #ifdef SHARED_NODES    }   #endif /* SHARED_NODES */    }       /* Kill root node. */      #if defined(SHARED_NODES) && defined(PIKE_DEBUG)    if (n->refs) { -  fatal("Killed node %08p still has refs: %d\n", n, n->refs); +  fatal("Killed node %p still has refs: %d\n", n, n->refs);    }   #endif /* SHARE_NODES && PIKE_DEBUG */       if(n->type) free_string(n->type);    if(n->name) free_string(n->name);   #ifdef PIKE_DEBUG    if(n->current_file) free_string(n->current_file);   #endif       n->token=USHRT_MAX;