pike.git/ src/ interpret_functions.h

2001-01-08

2001-01-08 20:04:48 by Martin Stjernholm <mast@lysator.liu.se>

• 3723b979cec9671462de30a91ce9ba8e6318fc03 (8 lines) (+7/-1) ^{[ Show | Annotate ]}
  Branch: 7.9

Added a debug check to aid in hunting down some sort stack problem
that occurred in an infinite recursion involving the tail recursion
optimization.

Rev: src/interpret_functions.h:1.36

1:   /* -  * $Id: interpret_functions.h,v 1.35 2000/12/05 21:08:18 per Exp $ +  * $Id: interpret_functions.h,v 1.36 2001/01/08 20:04:48 mast Exp $    *    * Opcode definitions for the interpreter.    */
1614:       if(Pike_sp-args != Pike_fp->locals)    { + #ifdef PIKE_DEBUG +  if (Pike_sp < Pike_fp->locals + args) +  fatal("Pike_sp (%p) < Pike_fp->locals (%p) + args (%d)\n", +  Pike_sp, Pike_fp->locals, args); + #endif    assign_svalues(Pike_fp->locals, Pike_sp-args, args, BIT_MIXED);    pop_n_elems(Pike_sp - (Pike_fp->locals + args));    }