pike.git / src / program.c

version» Context lines:

pike.git/src/program.c:1:   /*   || This file is part of Pike. For copyright information see COPYRIGHT.   || Pike is distributed under GPL, LGPL and MPL. See the file COPYING   || for more information. - || $Id: program.c,v 1.627 2007/10/16 09:18:53 grubba Exp $ + || $Id: program.c,v 1.628 2007/10/24 15:49:26 grubba Exp $   */      #include "global.h"   #include "program.h"   #include "object.h"   #include "dynamic_buffer.h"   #include "pike_types.h"   #include "stralloc.h"   #include "las.h"   #include "lex.h"
pike.git/src/program.c:2184:    fsort_program_identifier_index(p->identifier_index,    p->identifier_index +    p->num_identifier_index - 1,    p);          p->flags |= PROGRAM_FIXED;       /* Yes, it is supposed to start at 1 /Hubbe */    for(i=1;i<NUM_LFUNS;i++) { -  p->lfuns[i] = low_find_lfun(p, i); +  int id = p->lfuns[i] = low_find_lfun(p, i); +  if (id >= 0) { +  p->identifier_references[id].id_flags |= ID_USED;    } -  +  } +  for(;i < NELEM(lfun_names); i++) { +  int id = low_find_lfun(p, i); +  if (id >= 0) { +  p->identifier_references[id].id_flags |= ID_USED; +  } +  }       /* Set the PROGRAM_LIVE_OBJ flag by looking for destroy() and    * inherited PROGRAM_LIVE_OBJ flags. This is done at fixation time    * to allow the user to set and clear that flag while the program is    * being built. */    if (!(p->flags & PROGRAM_LIVE_OBJ)) {    int e, destroy = p->lfuns[LFUN_DESTROY];    if (destroy > -1) {    struct identifier *id = ID_FROM_INT (p, destroy);    if (!IDENTIFIER_IS_PIKE_FUNCTION (id->identifier_flags) ||