pike.git / src / lex.c

version» Context lines:

pike.git/src/lex.c:336:   char *get_f_name(int n)   {    static char buf[30];    if (n<F_MAX_OPCODE && instrs[n-F_OFFSET].name)    {    return instrs[n-F_OFFSET].name;    }else if(n >= F_MAX_OPCODE) {    if(fp && fp->context.prog &&    (int)fp->context.prog->num_constants > (int)(n-F_MAX_OPCODE) &&    fp->context.prog->constants[n-F_MAX_OPCODE].type==T_FUNCTION && -  fp->context.prog->constants[n-F_MAX_OPCODE].subtype == -1 && +  (short)fp->context.prog->constants[n-F_MAX_OPCODE].subtype == -1 &&    fp->context.prog->constants[n-F_MAX_OPCODE].u.efun)    {    return fp->context.prog->constants[n-F_MAX_OPCODE].u.efun->name->str;    }else{    sprintf(buf, "Call efun %d", n - F_MAX_OPCODE);    return buf;    }    }else{    sprintf(buf, "<OTHER %d>", n);    return buf;