pike.git / src / interpret.c

version» Context lines:

pike.git/src/interpret.c:2330:    Pike_interpreter.trace_level = old_t_flag;    }       else {    free_svalue(&throw_value);    mark_free_svalue (&throw_value);    }   }      /* NOTE: This function may only be called from the compiler! */ - PMOD_EXPORT int apply_low_safe_and_stupid(struct object *o, INT32 offset) + int apply_low_safe_and_stupid(struct object *o, INT32 offset)   {    JMP_BUF tmp;    struct pike_frame *new_frame=alloc_pike_frame();    int ret;    int use_dummy_reference = 1;    struct program *prog = o->prog;    int p_flags = prog->flags;    LOW_JMP_BUF *saved_jmpbuf;    int fun = -1;   
pike.git/src/interpret.c:2435:    prog->num_identifier_references--;    prog->num_identifiers--;    }       assert (new_frame == Pike_fp);    LOW_POP_PIKE_FRAME (new_frame);       return ret;   }    - PMOD_EXPORT int safe_apply_low2(struct object *o, int fun, int args, + int safe_apply_low2(struct object *o, int fun, int args,    const char *fun_name)   {    JMP_BUF recovery;    int ret = 0;       free_svalue(& throw_value);    mark_free_svalue (&throw_value);    if(SETJMP_SP(recovery, args))    {    if(fun_name) call_handle_error();
pike.git/src/interpret.c:2479:   {    int id;   #ifdef PIKE_DEBUG    if(!o->prog) Pike_fatal("Apply safe on destructed object.\n");   #endif    id = find_identifier(fun, o->prog);    return safe_apply_low2(o, id, args, fun);   }      /* Returns nonzero if the function was called in some handler. */ - PMOD_EXPORT int low_unsafe_apply_handler(const char *fun, + int low_unsafe_apply_handler(const char *fun,    struct object *handler,    struct object *compat,    INT32 args)   {    int i;   #if 0    fprintf(stderr, "low_unsafe_apply_handler(\"%s\", 0x%08p, 0x%08p, %d)\n",    fun, handler, compat, args);   #endif /* 0 */    if (handler && handler->prog &&
pike.git/src/interpret.c:2508:    apply_low(master_obj, i, args);    else {    pop_n_elems(args);    push_undefined();    return 0;    }    }    return 1;   }    - PMOD_EXPORT void low_safe_apply_handler(const char *fun, + void low_safe_apply_handler(const char *fun,    struct object *handler,    struct object *compat,    INT32 args)   {    int i;   #if 0    fprintf(stderr, "low_safe_apply_handler(\"%s\", 0x%08p, 0x%08p, %d)\n",    fun, handler, compat, args);   #endif /* 0 */    if (handler && handler->prog &&
pike.git/src/interpret.c:2723: Inside #if defined(PIKE_DEBUG)
   {    if(f->locals < Pike_interpreter.evaluator_stack ||    f->locals > &(Pike_interpreter.evaluator_stack[Pike_stack_size]))    Pike_fatal("Local variable pointer points to FinspĂ„ng.\n");       if(f->args < 0 || f->args > Pike_stack_size)    Pike_fatal("FEL FEL FEL! HELP!! (corrupted pike_frame)\n");    }    }   } - #endif +     -  +    static const char *safe_idname_from_int(struct program *prog, int func)   {    /* ID_FROM_INT with a thick layer of checks. */    struct reference *ref;    struct inherit *inher;    struct identifier *id;    if (!prog)    return "<null program *>";    if (func < 0 || func >= prog->num_identifier_references)    return "<offset outside prog->identifier_references>";
pike.git/src/interpret.c:2980: Inside #if defined(PIKE_THREADS)
   struct thread_state *ts = 0;    while ((i = gdb_next_thread_state (i, &ts)), ts) {    fprintf (stderr, "\nTHREAD_ID %p (swapped %s):\n",    (void *)ts->id, ts->swapped ? "out" : "in");    gdb_backtrace (ts->id);    }   #else    gdb_backtrace();   #endif   } + #endif      PMOD_EXPORT void custom_check_stack(ptrdiff_t amount, const char *fmt, ...)   {    if (low_stack_check(amount)) {    va_list args;    va_start(args, fmt);    va_error(fmt, args);    }   }