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.628 2007/10/24 15:49:26 grubba Exp $ + || $Id: program.c,v 1.629 2007/11/10 19:45:49 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:2185:    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++) {    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) ||