pike.git / src / opcodes.c

version» Context lines:

pike.git/src/opcodes.c:20:   #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.117 2001/12/10 02:08:15 mast Exp $"); + RCSID("$Id: opcodes.c,v 1.118 2001/12/16 02:49:41 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))    Pike_error("Index permission denied.\n");   #endif
pike.git/src/opcodes.c:162:    {    if(sp[-1].type == T_OBJECT && sp[-1].u.object->prog)    {    int f=FIND_LFUN(sp[-1].u.object->prog, LFUN__IS_TYPE);    if( f != -1)    {    struct pike_string *s;    MAKE_CONSTANT_SHARED_STRING(s, "int");    push_string(s);    apply_low(sp[-2].u.object, f, 1); -  f=!IS_ZERO(sp-1); +  f=!UNSAFE_IS_ZERO(sp-1);    pop_stack();    if(f) return;    }    }    Pike_error("Cast failed, wanted int, got %s\n",    get_name_of_type(sp[-1].type));    }    break;       case T_FLOAT:
pike.git/src/opcodes.c:272:    {    if(sp[-1].type == T_OBJECT && sp[-1].u.object->prog)    {    int f=FIND_LFUN(sp[-1].u.object->prog, LFUN__IS_TYPE);    if( f != -1)    {    struct pike_string *s;    MAKE_CONSTANT_SHARED_STRING(s, "string");    push_string(s);    apply_low(sp[-2].u.object, f, 1); -  f=!IS_ZERO(sp-1); +  f=!UNSAFE_IS_ZERO(sp-1);    pop_stack();    if(f) return;    }    }    Pike_error("Cast failed, wanted string, got %s\n",    get_name_of_type(sp[-1].type));    }    return;       case T_ARRAY:
pike.git/src/opcodes.c:581:       if(run_time_type != sp[-1].type)    {    if(sp[-1].type == T_OBJECT && sp[-1].u.object->prog)    {    int f=FIND_LFUN(sp[-1].u.object->prog, LFUN__IS_TYPE);    if( f != -1)    {    push_text(get_name_of_type(run_time_type));    apply_low(sp[-2].u.object, f, 1); -  f=!IS_ZERO(sp-1); +  f=!UNSAFE_IS_ZERO(sp-1);    pop_stack();    if(f) goto emulated_type_ok;    }    }    Pike_error("Cast failed, wanted %s, got %s\n",    get_name_of_type(run_time_type),    get_name_of_type(sp[-1].type));    }       emulated_type_ok: