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.216 2000/09/26 22:19:03 hubbe Exp $"); + RCSID("$Id: las.c,v 1.217 2000/09/28 16:26:01 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:4186: Inside #if defined(SHARED_NODES)
     #if defined(SHARED_NODES)    if ((n->node_info & OPT_DEFROSTED) && (n->parent)) {   #ifndef IN_TPIKE    /* Add ref since both freeze_node() and use_tmp1 will free it. */    ADD_NODE_REF(n);    /* We don't want freeze_node() to find this node in the hash-table. */    tmp1 = freeze_node(n);    if (tmp1 != n) {    /* n was a duplicate node. Use the original. */ +  /* Make sure the original isn't defrosted too. */ +  tmp1->node_info &= ~OPT_DEFROSTED;    goto use_tmp1;    }    /* Remove the extra ref from n */    free_node(n); - #else /* IN_TPIKE */ -  n->node_info &= ~OPT_DEFROSTED; +    #endif /* !IN_TPIKE */ -  +  n->node_info &= ~OPT_DEFROSTED;    if (n->node_info & OPT_OPTIMIZED) {    /* No need to check this node any more. */    n = n->parent;    continue;    }    }   #endif /* SHARED_NODES && !IN_TPIKE */       lex.current_line = n->line_number;   #ifdef PIKE_DEBUG