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.65 1999/08/03 00:45:13 hubbe Exp $"); + RCSID("$Id: lex.c,v 1.66 1999/09/18 09:21:22 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:278:   char *low_get_f_name(int n,struct program *p)   {    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(p &&    (int)p->num_constants > (int)(n-F_MAX_OPCODE) && -  p->constants[n-F_MAX_OPCODE].type==T_FUNCTION && -  (p->constants[n-F_MAX_OPCODE].subtype == FUNCTION_BUILTIN) && -  p->constants[n-F_MAX_OPCODE].u.efun) +  p->constants[n-F_MAX_OPCODE].sval.type==T_FUNCTION && +  (p->constants[n-F_MAX_OPCODE].sval.subtype == FUNCTION_BUILTIN) && +  p->constants[n-F_MAX_OPCODE].sval.u.efun)    { -  return p->constants[n-F_MAX_OPCODE].u.efun->name->str; +  return p->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;    }   }      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 == FUNCTION_BUILTIN && -  fp->context.prog->constants[n-F_MAX_OPCODE].u.efun) +  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)    { -  return fp->context.prog->constants[n-F_MAX_OPCODE].u.efun->name->str; +  return 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;    }   }