pike.git / src / interpret.c

version» Context lines:

pike.git/src/interpret.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: interpret.c,v 1.183 2001/01/24 08:17:27 hubbe Exp $"); + RCSID("$Id: interpret.c,v 1.184 2001/03/09 02:43:58 hubbe Exp $");   #include "interpret.h"   #include "object.h"   #include "program.h"   #include "svalue.h"   #include "array.h"   #include "mapping.h"   #include "pike_error.h"   #include "language.h"   #include "stralloc.h"   #include "constants.h"
pike.git/src/interpret.c:268:    break;       case T_MAPPING:    mapping_index_no_free(to, lval->u.mapping, lval+1);    break;       case T_MULTISET:    to->type=T_INT;    if(multiset_member(lval->u.multiset,lval+1))    { -  to->u.integer=0; -  to->subtype=NUMBER_UNDEFINED; +  to->u.integer=1; +  to->subtype=NUMBER_NUMBER;    }else{    to->u.integer=0; -  to->subtype=NUMBER_NUMBER; +  to->subtype=NUMBER_UNDEFINED;    }    break;       default:    if(IS_ZERO(lval))    index_error(0,0,0,lval,lval+1,"Indexing the NULL value.\n");    else    index_error(0,0,0,lval,lval+1,"Indexing a basic type.\n");    }   }