pike.git
/
src
/
program.c
version
»
Context lines:
10
20
40
80
file
none
3
pike.git/src/program.c:7048:
best + 1, name, Pike_sp-1); } else { Pike_error("Too few arguments to %S(). Expected %O.\n", name, Pike_sp-1); } } else { Pike_error("Too many arguments to %S().\n", name); } }
-
PMOD_EXPORT int low_find_lfun(struct program *p,
ptrdiff_t
lfun)
+
PMOD_EXPORT int low_find_lfun(struct program *p,
enum
LFUN
lfun)
{ struct pike_string *lfun_name; unsigned int flags = 0; int i; struct identifier *id; #ifdef PIKE_DEBUG if ((size_t)lfun >= NELEM(lfun_strings)) { return find_lfun_fatal(p, lfun); } #endif
pike.git/src/program.c:7074:
SEE_PROTECTED); if (i < 0 || !(p->flags & PROGRAM_FIXED)) return i; id = ID_FROM_INT(p, i); if (IDENTIFIER_IS_PIKE_FUNCTION(id->identifier_flags) && (id->func.offset == -1)) { /* Function prototype. */ return -1; } return i; }
-
-
PMOD_EXPORT int find_lfun_fatal(struct program *UNUSED(p),
ptrdiff_t
lfun)
+
#ifdef PIKE_DEBUG
+
PMOD_EXPORT int find_lfun_fatal(struct program *UNUSED(p),
enum
LFUN
lfun)
{ Pike_fatal("Invalid lfun number: %d\n", lfun); UNREACHABLE(return -1); }
-
+
#endif
int lfun_lookup_id(struct pike_string *lfun_name) { struct svalue *id = low_mapping_string_lookup(lfun_ids, lfun_name); if (!id) return -1; if (TYPEOF(*id) == T_INT) return id->u.integer; my_yyerror("Bad entry in lfun lookup table for %S.", lfun_name); return -1; }