Branch: Tag:

2000-07-07

2000-07-07 01:24:14 by Fredrik Hübinette (Hubbe) <hubbe@hubbe.net>

jumbopatch!

Rev: src/interpret.h:1.48
Rev: src/interpret_functions.h:1.25
Rev: src/interpreter.h:1.48
Rev: src/threads.c:1.132

49: Inside #if defined(PIKE_DEBUG)
   Pike_sp[2].type=99;    Pike_sp[3].type=99;    -  if(Pike_sp<Pike_interpreter.evaluator_stack || Pike_interpreter.mark_sp < Pike_interpreter.mark_stack || Pike_fp->locals>Pike_sp) -  fatal("Stack error (generic) Pike_sp=%p/%p Pike_interpreter.mark_sp=%p/%p locals=%p.\n", +  if(Pike_sp<Pike_interpreter.evaluator_stack || Pike_mark_sp < Pike_interpreter.mark_stack || Pike_fp->locals>Pike_sp) +  fatal("Stack error (generic) Pike_sp=%p/%p Pike_mark_sp=%p/%p locals=%p.\n",    Pike_sp,    Pike_interpreter.evaluator_stack, -  Pike_interpreter.mark_sp, +  Pike_mark_sp,    Pike_interpreter.mark_stack,    Pike_fp->locals);    -  if(Pike_interpreter.mark_sp > Pike_interpreter.mark_stack+Pike_stack_size) +  if(Pike_mark_sp > Pike_interpreter.mark_stack+Pike_stack_size)    fatal("Mark Stack error (overflow).\n");       -  if(Pike_interpreter.mark_sp < Pike_interpreter.mark_stack) +  if(Pike_mark_sp < Pike_interpreter.mark_stack)    fatal("Mark Stack error (underflow).\n");       if(Pike_sp > Pike_interpreter.evaluator_stack+Pike_stack_size)
74: Inside #if defined(PIKE_DEBUG)
   if(Pike_interpreter.recoveries && Pike_sp-Pike_interpreter.evaluator_stack < Pike_interpreter.recoveries->stack_pointer)    fatal("Stack error (underflow).\n");    -  if(Pike_interpreter.mark_sp > Pike_interpreter.mark_stack && Pike_interpreter.mark_sp[-1] > Pike_sp) +  if(Pike_mark_sp > Pike_interpreter.mark_stack && Pike_mark_sp[-1] > Pike_sp)    fatal("Stack error (underflow?)\n");       if(d_flag > 9) do_debug();
90: Inside #if defined(PIKE_DEBUG)
   backlog[backlogp].instruction=instr;    backlog[backlogp].pc=pc;    backlog[backlogp].stack = Pike_sp - Pike_interpreter.evaluator_stack; -  backlog[backlogp].mark_stack = Pike_interpreter.mark_sp - Pike_interpreter.mark_stack; +  backlog[backlogp].mark_stack = Pike_mark_sp - Pike_interpreter.mark_stack;   #ifdef _REENTRANT    backlog[backlogp].thread_id=Pike_interpreter.thread_id;   #endif
125: Inside #if defined(PIKE_DEBUG)
   (long)(pc-Pike_fp->context.prog->program-1),    get_f_name(instr + F_OFFSET),    (long)(Pike_sp-Pike_interpreter.evaluator_stack), -  (long)(Pike_interpreter.mark_sp-Pike_interpreter.mark_stack)); +  (long)(Pike_mark_sp-Pike_interpreter.mark_stack));    }       if(instr + F_OFFSET < F_MAX_OPCODE)