pike.git / src / builtin.cmod

version» Context lines:

pike.git/src/builtin.cmod:933:   {    INT32 old_level;    if (facility) {    struct pike_string *gc_str;    MAKE_CONST_STRING(gc_str, "gc");    if (facility == gc_str) {    old_level = gc_trace;    gc_trace = level;    }    else { -  bad_arg_error("trace", Pike_sp-args, args, 2, +  bad_arg_error("trace", args, 2,    "trace facility identifier", Pike_sp-args+1,    "Bad argument 2 to trace(). Unknown trace facility.");    }    }    else {    old_level = Pike_interpreter.trace_level;   #ifdef PIKE_THREADS    if (!all_threads)    Pike_interpreter.trace_level = level;    else {
pike.git/src/builtin.cmod:1171:    *!    *! @seealso    *! @[indices()], @[values()]    */   PMOD_EXPORT   PIKEFUN mapping(1:2) mkmapping(array(1=mixed) ind, array(2=mixed) val)    efun;    optflags OPT_TRY_OPTIMIZE|OPT_EXTERNAL_DEPEND;   {    if(ind->size != val->size) -  bad_arg_error("mkmapping", Pike_sp-args, args, 2, "array", Pike_sp+1-args, +  bad_arg_error("mkmapping", args, 2, "array", Pike_sp+1-args,    "mkmapping called on arrays of different sizes (%d != %d)\n",    ind->size, val->size);       RETURN mkmapping(ind, val);   }      /*! @decl string secure(string str)    *! @belongs String    *!    *! Marks the string as secure, which will clear the memory area
pike.git/src/builtin.cmod:1761:    dump_program_tables(func->u.program->parent, 0);    }   #endif    }    break;    }       case PIKE_T_FUNCTION:    if((f = SUBTYPEOF(*func)) == FUNCTION_BUILTIN) break;    if(!(p = func->u.object->prog)) -  bad_arg_error("function_name", Pike_sp-args, args, 1, +  bad_arg_error("function_name", args, 1,    "function", Pike_sp-args,    "Destructed object.\n");    if(p == pike_trampoline_program)    {    struct pike_trampoline *t;    t=((struct pike_trampoline *)func->u.object->storage);       if(t->frame->current_object->prog) {    p = t->frame->current_object->prog;    f = t->func;
pike.git/src/builtin.cmod:2623:    break;    case 2: /* Function */    push_svalue(&THIS->_fun);    break;    default: /* Arguments */    {    if ((i > 2) && (THIS->args) && (i-3 < THIS->args->size)) {    push_svalue(THIS->args->item + (i - 3));    break;    } -  bad_arg_error("`[]", Pike_sp-args, args, 1, +  bad_arg_error("`[]", args, 1,    "int(0..)", Pike_sp-args,    "Bad argument 1 to backtrace_frame->`[](): "    "Expected int(0..%d)\n",    numargs + 2);    }    UNREACHABLE(break);    }    }    if (end_or_none)    f_aggregate(1 + end - index);