Branch: Tag:

2000-05-01

2000-05-01 10:28:27 by Fredrik Hübinette (Hubbe) <hubbe@hubbe.net>

more debug..

Rev: src/interpret.c:1.150
Rev: src/interpret_functions.h:1.23

1:   /* -  * $Id: interpret_functions.h,v 1.22 2000/05/01 10:09:58 hubbe Exp $ +  * $Id: interpret_functions.h,v 1.23 2000/05/01 10:28:27 hubbe Exp $    *    * Opcode definitions for the interpreter.    */
1538:    sp += num_locals - args;       x=eval_instruction(addr); + #ifdef PIKE_DEBUG +  if(mark_sp < save_mark_sp) +  fatal("mark sp underflow in F_RECUR.\n"); + #endif    mark_sp=save_mark_sp;    if(x!=-1) mega_apply(APPLY_STACK, x, 0,0);    pc+=sizeof(INT32);
1598:    sp += num_locals - args;       x=eval_instruction(addr); + #ifdef PIKE_DEBUG +  if(mark_sp < save_mark_sp) +  fatal("mark sp underflow in F_RECUR.\n"); + #endif    mark_sp=save_mark_sp;    if(x!=-1) mega_apply(APPLY_STACK, x, 0,0);    pc+=sizeof(INT32);
1618:   BREAK      /* Assume that the number of arguments is correct */ + /* FIXME: adjust mark_sp */   OPCODE0_JUMP(F_TAIL_RECUR,"tail recursion")   {    int x,num_locals;