pike.git
/
src
/
docode.c
version
»
Context lines:
10
20
40
80
file
none
3
pike.git/src/docode.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: docode.c,v 1.
66
2000/03/
09
20
:
37
:
15
hubbe Exp $");
+
RCSID("$Id: docode.c,v 1.
67
2000/03/
30
08
:
43
:
07
hubbe Exp $");
#include "las.h" #include "program.h" #include "language.h" #include "pike_types.h" #include "stralloc.h" #include "interpret.h" #include "constants.h" #include "array.h" #include "pike_macros.h" #include "error.h"
pike.git/src/docode.c:774:
struct pike_string *tmp; struct efun *fun; node *foo; emit2(F_MARK); do_docode(CAR(n),0); do_docode(CDR(n),0); tmp=findstring("call_function"); if(!tmp) yyerror("No call_function efun.");
-
foo=find_module_identifier(tmp);
+
foo=find_module_identifier(tmp
,0
);
if(!foo || !foo->token==F_CONSTANT) { yyerror("No call_function efun."); }else{ if(foo->u.sval.type == T_FUNCTION && foo->u.sval.subtype == FUNCTION_BUILTIN && foo->u.sval.u.efun->function == f_call_function) { emit2(F_CALL_FUNCTION); }else{