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.236 2001/07/02 20:32:55 mast Exp $"); + RCSID("$Id: las.c,v 1.237 2001/07/13 14:30:48 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:494: Inside #if defined(SHARED_NODES)
   break;    }    scan = scan->next;    }    } else {    /* FIXME: sub_node() recalculates the hash index.    * We might get better performance by using the one we already have.    */    sub_node(orig);    } +  /* Propagate the line-number information. */ +  n->line_number = orig->line_number; + #ifdef PIKE_DEBUG +  if (orig->current_file) { +  if (n->current_file) { +  free_string(n->current_file); +  } +  n->current_file = orig->current_file; +  orig->current_file = NULL; +  } + #endif /* PIKE_DEBUG */    free_node(dmalloc_touch(node *, orig));    n->refs++;    return check_node_hash(dmalloc_touch(node *, n));    }    n = n->next;    }    orig->node_info &= ~OPT_DEFROSTED;    if (!found) {    add_node(dmalloc_touch(node *, orig));    }