pike.git / src / docode.c

version» Context lines:

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)    {