pike.git / src / interpret.c

version» Context lines:

pike.git/src/interpret.c:133: Inside #if defined(PIKE_DEBUG)
   GC_ENTER (f, T_PIKE_FRAME) {    if (!debug_gc_check (f, " as frame on stack")) {    gc_mark_external (f->current_object, " in current_object in frame on stack");    gc_mark_external (f->current_program, " in current_program in frame on stack");    if (f->locals) { /* Check really needed? */    if (f->flags & PIKE_FRAME_MALLOCED_LOCALS) {    gc_mark_external_svalues(f->locals, f->num_locals,    " in malloced locals of trampoline frame on stack");    } else {    if (f->locals > stack_p || (stack_p - f->locals) >= 0x10000) { -  fatal("Unreasonable locals: stack:%p locals:%p\n", +  Pike_fatal("Unreasonable locals: stack:%p locals:%p\n",    stack_p, f->locals);    }    gc_mark_external_svalues (f->locals, stack_p - f->locals, " on svalue stack");    stack_p = f->locals;    }    }    }    } GC_LEAVE;    if (stack != stack_p)    gc_mark_external_svalues (stack, stack_p - stack, " on svalue stack");
pike.git/src/interpret.c:2875:    new_frame->expendible=new_frame->locals;    new_frame->args = 0;    new_frame->num_args=0;    new_frame->num_locals=0;    new_frame->fun = fun;    new_frame->pc = 0;    new_frame->current_storage=o->storage;      #ifdef PIKE_DEBUG    if (Pike_fp && (new_frame->locals < Pike_fp->locals)) { -  fatal("New locals below old locals: %p < %p\n", +  Pike_fatal("New locals below old locals: %p < %p\n",    new_frame->locals, Pike_fp->locals);    }   #endif /* PIKE_DEBUG */       Pike_fp = new_frame;       saved_jmpbuf = Pike_interpreter.catching_eval_jmpbuf;    Pike_interpreter.catching_eval_jmpbuf = NULL;       if(SETJMP(tmp))