pike.git / src / error.c

version» Context lines:

pike.git/src/error.c:807:   /*! @decl int(0..1) _is_type(string t)    *!    *! Claims that the error object is an array, for compatibility with    *! old style error handling code.    */   static void f_error__is_type(INT32 args)   {    struct pike_string *array_string;    int ret;    MAKE_CONST_STRING(array_string, "array"); -  if (args < 0) SIMPLE_TOO_FEW_ARGS_ERROR("_is_type", 1); -  if (args > 1) SIMPLE_WRONG_NUM_ARGS_ERROR("_is_type", 1); +  if (args!=1) SIMPLE_WRONG_NUM_ARGS_ERROR("_is_type", 1);    if (TYPEOF(Pike_sp[-args]) != PIKE_T_STRING)    SIMPLE_ARG_TYPE_ERROR("_is_type", 1, "string");    ret = Pike_sp[-args].u.string == array_string;    pop_n_elems(args);    push_int(ret);   }      /*! @decl void create(string message, @    *! void|array(backtrace_frame|array(mixed)) backtrace)    */