pike.git / src / opcodes.c

version» Context lines:

pike.git/src/opcodes.c:19:   #include "pike_types.h"   #include "pike_memory.h"   #include "fd_control.h"   #include "cyclic.h"   #include "builtin_functions.h"   #include "module_support.h"   #include "security.h"   #include "bignum.h"   #include "operators.h"    - RCSID("$Id: opcodes.c,v 1.72 2000/03/10 01:23:19 grubba Exp $"); + RCSID("$Id: opcodes.c,v 1.73 2000/04/01 18:59:51 grubba Exp $");      void index_no_free(struct svalue *to,struct svalue *what,struct svalue *ind)   {    INT32 i;      #ifdef PIKE_SECURITY    if(what->type <= MAX_COMPLEX)    if(!CHECK_DATA_SECURITY(what->u.array, SECURITY_BIT_INDEX))    error("Index permission denied.\n");   #endif       switch(what->type)    {   #ifdef AUTO_BIGNUM    case T_INT: -  +  { +  INT_TYPE val = what->u.integer; +     convert_svalue_to_bignum(what);    index_no_free(to, what, ind); -  if(IS_UNDEFINED(to)) -  error("Indexing an integer with an unknown method.\n"); +  if(IS_UNDEFINED(to)) { +  if (val) { +  error("Indexing the integer %d with an unknown method.\n", val); +  } else { +  error("Indexing the NULL value.\n"); +  } +  } +  }    break;   #endif /* AUTO_BIGNUM */       case T_ARRAY:    simple_array_index_no_free(to,what->u.array,ind);    break;       case T_MAPPING:    mapping_index_no_free(to,what->u.mapping,ind);    break;