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.
48
1999/
06
/
19
19
:
57
:
31
hubbe Exp $");
+
RCSID("$Id: docode.c,v 1.
49
1999/
08
/
03
00
:
45
:
09
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:1071:
if(n->token==F_CONSTANT && !(n->node_info & OPT_EXTERNAL_DEPEND)) emit2(F_COPY_VALUE); } } return tmp1; case F_CONSTANT: switch(n->u.sval.type) { case T_INT:
+
if(!n->u.sval.u.integer && n->u.sval.subtype==NUMBER_UNDEFINED)
+
{
+
emit2(F_UNDEFINED);
+
}else{
emit(F_NUMBER,n->u.sval.u.integer);
-
+
}
return 1; case T_STRING: tmp1=store_prog_string(n->u.sval.u.string); emit(F_STRING,tmp1); return 1; case T_FUNCTION: if(n->u.sval.subtype!=FUNCTION_BUILTIN) {