pike.git / src / interpret_functions.h

version» Context lines:

pike.git/src/interpret_functions.h:1:   /* -  * $Id: interpret_functions.h,v 1.46 2001/02/20 00:01:00 grubba Exp $ +  * $Id: interpret_functions.h,v 1.47 2001/02/20 13:02:11 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:1388:    push_magic_index(magic_set_index_program, arg2, arg1);   BREAK;      OPCODE0(F_CAST, "cast")    f_cast();   BREAK;      OPCODE0(F_SOFT_CAST, "soft cast")    /* Stack: type_string, value */   #ifdef PIKE_DEBUG -  if (Pike_sp[-2].type != T_STRING) { -  /* FIXME: The type should really be T_TYPE... */ -  fatal("Argument 1 to soft_cast isn't a string!\n"); +  if (Pike_sp[-2].type != T_TYPE) { +  fatal("Argument 1 to soft_cast isn't a type!\n");    }   #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) ||