pike.git
/
src
/
lex.c
version
»
Context lines:
10
20
40
80
file
none
3
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; } }