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.92 2000/11/12 10:18:49 sigge Exp $"); + RCSID("$Id: opcodes.c,v 1.93 2000/11/24 05:41:02 mast 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
pike.git/src/opcodes.c:321:    for(i = a->size; i--; ) {    unsigned INT32 val;    if (a->item[i].type != T_INT) {    error("cast: Item %d is not an integer.\n", i);    }    val = (unsigned INT32)a->item[i].u.integer;    if (val > 0xff) {    shift = 1;    if (val > 0xffff) {    shift = 2; +  while(i--) +  if (a->item[i].type != T_INT) +  error("cast: Item %d is not an integer.\n", i);    break;    }    while(i--) {    if (a->item[i].type != T_INT) {    error("cast: Item %d is not an integer.\n", i);    }    val = (unsigned INT32)a->item[i].u.integer;    if (val > 0xffff) {    shift = 2; -  +  while(i--) +  if (a->item[i].type != T_INT) +  error("cast: Item %d is not an integer.\n", i);    break;    }    }    break;    }    }    s = begin_wide_shared_string(a->size, shift);    switch(shift) {    case 0:    for(i = a->size; i--; ) {