pike.git/src/program.c:4828:
dummy.filename_strno = store_prog_string(c->lex.current_file);
dummy.linenumber = c->lex.current_line;
dummy.identifier_flags = id->identifier_flags | IDENTIFIER_ALIAS;
dummy.run_time_type = id->run_time_type; /* Not actually used. */
dummy.func.ext_ref.depth = depth;
dummy.func.ext_ref.id = refno;
dummy.opt_flags = 0;
#ifdef PROFILING
dummy.self_time=0;
dummy.num_calls=0;
+ dummy.recur_depth=0;
dummy.total_time=0;
#endif
if (flags & ID_PRIVATE) flags |= ID_INLINE;
ref.id_flags=flags;
ref.identifier_offset=Pike_compiler->new_program->num_identifiers;
ref.inherit_offset=0;
debug_add_to_identifiers(dummy);
pike.git/src/program.c:4957:
copy_pike_type(dummy.type, type);
dummy.filename_strno = store_prog_string(c->lex.current_file);
dummy.linenumber = c->lex.current_line;
dummy.identifier_flags = IDENTIFIER_VARIABLE;
dummy.run_time_type=run_time_type;
dummy.func.offset=offset - Pike_compiler->new_program->inherits[0].storage_offset;
dummy.opt_flags = 0;
#ifdef PROFILING
dummy.self_time=0;
dummy.num_calls=0;
+ dummy.recur_depth=0;
dummy.total_time=0;
#endif
if (run_time_type == PIKE_T_FREE) dummy.func.offset = -1;
if (flags & ID_PRIVATE) flags |= ID_INLINE;
ref.id_flags=flags;
ref.identifier_offset=Pike_compiler->new_program->num_identifiers;
ref.inherit_offset=0;
pike.git/src/program.c:5408:
if (flags & ID_PRIVATE) flags |= ID_INLINE;
ref.id_flags=flags;
ref.identifier_offset=Pike_compiler->new_program->num_identifiers;
ref.inherit_offset=0;
#ifdef PROFILING
dummy.self_time=0;
dummy.num_calls=0;
+ dummy.recur_depth=0;
dummy.total_time=0;
#endif
debug_add_to_identifiers(dummy);
if(n != -1)
{
int overridden;
if(IDENTIFIERP(n)->id_flags & ID_FINAL)
pike.git/src/program.c:5646: Inside #if defined(PROGRAM_BUILD_DEBUG)
free_string (d);
push_string (name);
print_svalue (stderr, --Pike_sp);
putc ('\n', stderr);
}
#endif
#ifdef PROFILING
fun.self_time=0;
fun.num_calls=0;
+ fun.recur_depth=0;
fun.total_time=0;
#endif
/* If this is an lfun, match against the predefined type. */
if ((lfun_type = low_mapping_string_lookup(lfun_types, name))) {
#ifdef PIKE_DEBUG
if (lfun_type->type != T_TYPE) {
Pike_fatal("Bad entry in lfun_types for key \"%s\"\n", name->str);
}
#endif /* PIKE_DEBUG */