pike.git / src / program.c

version» Context lines:

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;   }