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.178 2000/05/09 01:17:59 hubbe Exp $"); + RCSID("$Id: las.c,v 1.179 2000/05/11 14:09:45 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:23:   #include "docode.h"   #include "main.h"   #include "pike_memory.h"   #include "operators.h"   #include "callback.h"   #include "pike_macros.h"   #include "peep.h"   #include "builtin_functions.h"   #include "cyclic.h"   #include "block_alloc.h" + #include "opcodes.h"      #define LASDEBUG      int lasdebug=0;      static node *eval(node *);   static void optimize(node *n);   static node *localopt(node *n);      node *init_node = 0;
pike.git/src/las.c:477:   }         node *debug_check_node_hash(node *n)   {   #if defined(PIKE_DEBUG) && defined(SHARED_NODES)    if (n && (n->hash != hash_node(n))) {    fprintf(stderr,"Bad node hash at %p, (%s:%d) (token=%d).\n",    n, n->current_file->str, n->line_number,    n->token); -  debug_malloc_dump_references(n); +  debug_malloc_dump_references(n,0,0,0);    print_tree(n);    fatal("Bad node hash!\n");    }   #endif /* PIKE_DEBUG && SHARED_NODES */    return n;   }      /* here starts routines to make nodes */   static node *debug_mkemptynode(void)   {