pike.git
/
src
/
docode.c
version
»
Context lines:
10
20
40
80
file
none
3
pike.git/src/docode.c:1:
/* || This file is part of Pike. For copyright information see COPYRIGHT. || Pike is distributed under GPL, LGPL and MPL. See the file COPYING || for more information.
-
|| $Id: docode.c,v 1.
204
2008
/
08
/
28
15
:
13
:
19
grubba
Exp $
+
|| $Id: docode.c,v 1.
205
2009
/
11
/
10
08
:
41
:
33
peter
Exp $
*/ #include "global.h" #include "las.h" #include "program.h" #include "pike_types.h" #include "stralloc.h" #include "interpret.h" #include "constants.h" #include "array.h"
pike.git/src/docode.c:1929:
node *foo; emit0(F_MARK); PUSH_CLEANUP_FRAME(do_pop_mark, 0); 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,0);
-
if(!foo ||
!
foo->token=
=
F_CONSTANT)
+
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) { emit0(F_CALL_FUNCTION); }else{ /* We might want to put "predef::"+foo->name here /Hubbe */