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.
119
2001/06/
17
19:
15
:
15
grubba
Exp $");
+
RCSID("$Id: docode.c,v 1.
120
2001/06/
19
23
:
59
:
33
hubbe
Exp $");
#include "las.h" #include "program.h" #include "pike_types.h" #include "stralloc.h" #include "interpret.h" #include "constants.h" #include "array.h" #include "pike_macros.h" #include "pike_error.h" #include "pike_memory.h"
pike.git/src/docode.c:1142:
{ if(!CAR(n)->u.sval.u.efun->docode || !CAR(n)->u.sval.u.efun->docode(n)) { emit0(F_MARK); PUSH_CLEANUP_FRAME(do_pop_mark, 0); do_docode(CDR(n),0); tmp1=store_constant(& CAR(n)->u.sval, !(CAR(n)->tree_info & OPT_EXTERNAL_DEPEND), CAR(n)->name);
-
emit1(F_
APPLY
, DO_NOT_WARN((INT32)tmp1));
+
emit1(F_
CALL_BUILTIN
, DO_NOT_WARN((INT32)tmp1));
POP_AND_DONT_CLEANUP; } if(n->type == void_type_string) return 0; return 1; }else{ if(CAR(n)->u.sval.u.object == Pike_compiler->fake_object) return do_lfun_call(CAR(n)->u.sval.subtype,CDR(n)); }