Branch: Tag:

2000-06-20

2000-06-20 23:31:25 by Fredrik Hübinette (Hubbe) <hubbe@hubbe.net>

bugfix for -d

Rev: src/interpret.c:1.155
Rev: src/interpret_functions.h:1.24

5:   \*/   /**/   #include "global.h" - RCSID("$Id: interpret.c,v 1.154 2000/06/09 22:45:08 mast Exp $"); + RCSID("$Id: interpret.c,v 1.155 2000/06/20 23:31:25 hubbe Exp $");   #include "interpret.h"   #include "object.h"   #include "program.h"
1099:    {    struct svalue **save_mark_sp=mark_sp;    tailrecurse=eval_instruction(pc); +  mark_sp=save_mark_sp;   #ifdef PIKE_DEBUG    if(mark_sp < save_mark_sp)    fatal("Popped below save_mark_sp!\n");   #endif -  mark_sp=save_mark_sp; +     }   #ifdef PIKE_DEBUG    if(sp<evaluator_stack)
1272:    {    ret=1;    }else{ +  struct svalue **save_mark_sp=mark_sp;    int tmp=eval_instruction(o->prog->program + offset); -  +  mark_sp=save_mark_sp;    if(tmp!=-1) mega_apply(APPLY_STACK, tmp, 0,0);      #ifdef PIKE_DEBUG