Branch: Tag:

2000-04-21

2000-04-21 20:08:08 by Fredrik Hübinette (Hubbe) <hubbe@hubbe.net>

more debug..

Rev: src/interpret.c:1.146
Rev: src/interpreter.h:1.44

11:    (t_flag>3 ? sprintf(trace_buffer,"- Arg = %ld\n",(long)instr),write_to_stderr(trace_buffer,strlen(trace_buffer)) : 0),\    instr))    - #define GET_ARG2() (\ + #define GET_ARG2() (backlog[backlogp].arg2=(\    instr=prefix2,\    prefix2=0,\    instr+=EXTRACT_UCHAR(pc++),\    (t_flag>3 ? sprintf(trace_buffer,"- Arg2= %ld\n",(long)instr),write_to_stderr(trace_buffer,strlen(trace_buffer)) : 0),\ -  instr) +  instr))      #else   #define GET_ARG() (instr=prefix,prefix=0,instr+EXTRACT_UCHAR(pc++))
47: Inside #if defined(PIKE_DEBUG)
   Pike_sp[3].type=99;       if(Pike_sp<Pike_evaluator_stack || Pike_mark_sp < Pike_mark_stack || Pike_fp->locals>Pike_sp) -  fatal("Stack error (generic).\n"); +  fatal("Stack error (generic) sp=%p/%p mark_sp=%p/%p locals=%p.\n", +  Pike_sp, +  Pike_evaluator_stack, +  Pike_mark_sp, +  Pike_mark_stack, +  Pike_fp->locals);       if(Pike_sp > Pike_evaluator_stack+Pike_stack_size)    fatal("Stack error (overflow).\n");