pike.git/src/program.c:4327:
PMOD_EXPORT void pike_set_prog_optimize_callback(node *(*opt)(node *))
{
#ifdef PIKE_DEBUG
if(Pike_compiler->new_program->optimize)
Pike_fatal("Program already has an optimize handler!\n");
#endif
Pike_compiler->new_program->optimize = opt;
}
- int really_low_reference_inherited_identifier(struct program_state *q,
+ PMOD_EXPORT int really_low_reference_inherited_identifier(struct program_state *q,
int e,
int i)
{
struct program *np=(q?q:Pike_compiler)->new_program;
struct reference funp;
struct program *p;
int d, num_id_refs;
if(i==-1) return -1;
pike.git/src/program.c:4375: Inside #if defined(PIKE_DEBUG)
*/
#ifdef PIKE_DEBUG
if (num_id_refs != np->num_identifier_references-1) {
fatal("Unexpected number of identifier references: %d != %d\n",
num_id_refs, np->num_identifier_references-1);
}
#endif /* PIKE_DEBUG */
return num_id_refs; /* aka np->num_identifier_references - 1 */
}
- int low_reference_inherited_identifier(struct program_state *q,
+ PMOD_EXPORT int low_reference_inherited_identifier(struct program_state *q,
int e,
struct pike_string *name,
int flags)
{
struct program *np=(q?q:Pike_compiler)->new_program;
struct program *p;
int i;
p=np->inherits[e].prog;
i=find_shared_string_identifier(name,p);