pike.git/
src/
program.c
Branch:
Tag:
Non-build tags
All tags
No tags
2002-04-07
2002-04-07 15:40:02 by Henrik Grubbström (Grubba) <grubba@grubba.org>
baf40083699cdf3a7c9753445550a554793ae3c4 (
15
lines) (+
4
/-
11
)
[
Show
|
Annotate
]
Branch:
7.9
Bugfix.
Rev: src/program.c:1.409
5:
\*/ /**/ #include "global.h"
-
RCSID("$Id: program.c,v 1.
408
2002/04/07 15:
24
:
11
grubba Exp $");
+
RCSID("$Id: program.c,v 1.
409
2002/04/07 15:
40
:
02
grubba Exp $");
#include "program.h" #include "object.h" #include "dynamic_buffer.h"
3079:
INT32 e; return really_low_find_shared_string_identifier(s, Pike_compiler->new_program,
-
SEE_STATIC
);
-
for(e=Pike
_
compiler->new_program->num_identifier_references-1;e>=0;e--
)
-
{
-
if(Pike_compiler->new_program->identifier_references[e].id_flags & ID_HIDDEN) continue
;
-
-
if(ID_FROM_INT(Pike_compiler->new_program, e)->name == s)
-
return e;
+
SEE_STATIC
|SEE
_
PRIVATE
);
}
-
return -1;
-
}
+
/* argument must be a shared string */ int low_define_variable(struct pike_string *name,
3924:
if(funp->id_flags & ID_INHERITED) { struct inherit *inh = INHERIT_FROM_PTR(prog, funp);
-
if(funp->id_flags & ID_PRIVATE) continue;
+
if
(
(
funp->id_flags & ID_PRIVATE)
&& !(flags & SEE_PRIVATE))
continue;
if (!depth || (depth > inh->inherit_level)) { depth = inh->inherit_level; id = i;