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.
45
1999/
03
/
11
13
:
44
:
27
hubbe Exp $");
+
RCSID("$Id: docode.c,v 1.
46
1999/
04
/
15
04
:
08
:
12
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:669:
{ if(!CAR(n)->u.sval.u.efun->docode || !CAR(n)->u.sval.u.efun->docode(n)) { emit2(F_MARK); do_docode(CDR(n),0); tmp1=store_constant(& CAR(n)->u.sval, !(CAR(n)->tree_info & OPT_EXTERNAL_DEPEND)); emit(F_APPLY,tmp1); }
-
if(n->type == void_type_string) return 0;
+
if(n->type == void_type_string)
+
return 0;
+
return 1; }else{ if(CAR(n)->u.sval.u.object == fake_object) { emit2(F_MARK); do_docode(CDR(n),0); emit(F_CALL_LFUN, CAR(n)->u.sval.subtype); return 1; } }