pike.git / src / lex.c

version» Context lines:

pike.git/src/lex.c:1:   /*\   ||| This file a part of Pike, and is copyright by Fredrik Hubinette   ||| Pike is distributed as GPL (General Public License)   ||| See the files COPYING and DISCLAIMER for more information.   \*/   /**/   #include "global.h" - RCSID("$Id: lex.c,v 1.80 2000/05/11 14:09:45 grubba Exp $"); + RCSID("$Id: lex.c,v 1.81 2000/07/07 02:11:40 hubbe Exp $");   #include "language.h"   #include "array.h"   #include "lex.h"   #include "stralloc.h"   #include "dynamic_buffer.h"   #include "constants.h"   #include "hashtable.h"   #include "stuff.h"   #include "pike_memory.h"   #include "interpret.h"
pike.git/src/lex.c:251:    }   }      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].sval.type==T_FUNCTION && -  fp->context.prog->constants[n-F_MAX_OPCODE].sval.subtype == FUNCTION_BUILTIN && -  fp->context.prog->constants[n-F_MAX_OPCODE].sval.u.efun) +  if(Pike_fp && Pike_fp->context.prog && +  (int)Pike_fp->context.prog->num_constants > (int)(n-F_MAX_OPCODE) && +  Pike_fp->context.prog->constants[n-F_MAX_OPCODE].sval.type==T_FUNCTION && +  Pike_fp->context.prog->constants[n-F_MAX_OPCODE].sval.subtype == FUNCTION_BUILTIN && +  Pike_fp->context.prog->constants[n-F_MAX_OPCODE].sval.u.efun)    { -  return fp->context.prog->constants[n-F_MAX_OPCODE].sval.u.efun->name->str; +  return Pike_fp->context.prog->constants[n-F_MAX_OPCODE].sval.u.efun->name->str;    }else{    sprintf(buf, "Call efun %d", n - F_MAX_OPCODE);    return buf;    }    }else{    sprintf(buf, "<OTHER %d>", n);    return buf;    }   }