pike.git / src / interpret_functions.h

version» Context lines:

pike.git/src/interpret_functions.h:1:   /* -  * $Id: interpret_functions.h,v 1.45 2001/02/19 23:49:59 grubba Exp $ +  * $Id: interpret_functions.h,v 1.46 2001/02/20 00:01:00 grubba Exp $    *    * Opcode definitions for the interpreter.    */      OPCODE0(F_UNDEFINED,"push UNDEFINED")    push_int(0);    Pike_sp[-1].subtype=NUMBER_UNDEFINED;   BREAK;      OPCODE0(F_CONST0, "push 0")
pike.git/src/interpret_functions.h:1401:    }   #endif /* PIKE_DEBUG */    if (runtime_options & RUNTIME_CHECK_TYPES) {    struct pike_type *sval_type = get_type_of_svalue(Pike_sp-1);    if (!pike_types_le(sval_type, Pike_sp[-2].u.type)) {    /* get_type_from_svalue() doesn't return a fully specified type    * for array, mapping and multiset, so we perform a more lenient    * check for them.    */    if (!pike_types_le(sval_type, weak_type_string) || -  !match_types(sval_type, Pike_sp[-2].u.string)) { +  !match_types(sval_type, Pike_sp[-2].u.type)) {    struct pike_string *t1;    struct pike_string *t2;    char *fname = "__soft-cast";    ONERROR tmp1;    ONERROR tmp2;       if (Pike_fp->current_object && Pike_fp->context.prog &&    Pike_fp->current_object->prog) {    /* Look up the function-name */    struct pike_string *name =    ID_FROM_INT(Pike_fp->current_object->prog, Pike_fp->fun)->name;    if ((!name->size_shift) && (name->len < 100))    fname = name->str;    }    -  t1 = describe_type(Pike_sp[-2].u.string); +  t1 = describe_type(Pike_sp[-2].u.type);    SET_ONERROR(tmp1, do_free_string, t1);       t2 = describe_type(sval_type);    SET_ONERROR(tmp2, do_free_string, t2);       free_type(sval_type);       bad_arg_error(NULL, Pike_sp-1, 1, 1, t1->str, Pike_sp-1,    "%s(): Soft cast failed. Expected %s, got %s\n",    fname, t1->str, t2->str);