pike.git/ src/ interpret.c

1998-06-18

1998-06-18 23:18:44 by Fredrik Hübinette (Hubbe) <hubbe@hubbe.net>

• aa5b80b2fbd3d0a1d5113c89505cd2eb38f50e13 (15 lines) (+12/-3) ^{[ Show | Annotate ]}
  Branch: 7.9

bugfix

Rev: src/interpret.c:1.88

4:   ||| See the files COPYING and DISCLAIMER for more information.   \*/   #include "global.h" - RCSID("$Id: interpret.c,v 1.87 1998/06/06 03:25:36 hubbe Exp $"); + RCSID("$Id: interpret.c,v 1.88 1998/06/18 23:18:44 hubbe Exp $");   #include "interpret.h"   #include "object.h"   #include "program.h"
2026:   #endif    new_frame.num_locals=num_locals;    new_frame.num_args=num_args; +  { +  struct svalue **save_mark_sp=mark_sp;    tailrecurse=eval_instruction(pc);   #ifdef DEBUG -  +  if(mark_sp < save_mark_sp) +  fatal("Popped below save_mark_sp!\n"); + #endif +  mark_sp=save_mark_sp; +  } + #ifdef DEBUG    if(sp<evaluator_stack)    fatal("Stack error (also simple).\n");   #endif
2158:    free_object(new_frame.current_object);    free_program(new_frame.context.prog);    -  fp = new_frame.parent_frame; +  mark_sp=save_mark_sp;    return ret;   }