pike.git / src / interpret.c

version» Context lines:

pike.git/src/interpret.c:1:   /*   || This file is part of Pike. For copyright information see COPYRIGHT.   || Pike is distributed under GPL, LGPL and MPL. See the file COPYING   || for more information. - || $Id: interpret.c,v 1.400 2008/05/12 16:33:07 grubba Exp $ + || $Id: interpret.c,v 1.401 2008/05/12 17:20:20 grubba Exp $   */      #include "global.h"   #include "interpret.h"   #include "object.h"   #include "program.h"   #include "svalue.h"   #include "array.h"   #include "mapping.h"   #include "pike_error.h"
pike.git/src/interpret.c:397:    {    to->u.integer=1;    to->subtype=NUMBER_NUMBER;    }else{    to->u.integer=0;    to->subtype=NUMBER_UNDEFINED;    }    break;       default: -  fprintf(stderr, "TOSVAL: lval->type: %d (%s)\n", -  lval->type, get_name_of_type(lval->type)); +     if(SAFE_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");    }   }      PMOD_EXPORT void assign_lvalue(struct svalue *lval,struct svalue *from)   {   #ifdef PIKE_SECURITY
pike.git/src/interpret.c:463:    break;       case T_MULTISET:    if(UNSAFE_IS_ZERO(from))    multiset_delete(lval->u.multiset, lval+1);    else    multiset_insert(lval->u.multiset, lval+1);    break;       default: -  fprintf(stderr, "ASSIGN: lval->type: %d (%s)\n", -  lval->type, get_name_of_type(lval->type)); +     if(SAFE_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");    }   }      /* On error callback. lvalue is followed by value to assign. */   static void o_assign_lvalue(struct svalue *lvalue)   {
pike.git/src/interpret.c:509:       case T_ARRAY:    return array_get_item_ptr(lval->u.array,lval+1,t);       case T_MAPPING:    return mapping_get_item_ptr(lval->u.mapping,lval+1,t);       case T_MULTISET: return 0;       default: -  fprintf(stderr, "GETPTR: lval->type: %d (%s)\n", -  lval->type, get_name_of_type(lval->type)); +     if(SAFE_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");    return 0;    }   }      #ifdef PIKE_DEBUG