pike.git
/
src
/
program.c
version
»
Context lines:
10
20
40
80
file
none
3
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) ||