pike.git/ src/ interpret_functions.h

2001-07-18

2001-07-18 19:07:25 by Henrik Grubbström (Grubba) <grubba@grubba.org>

• ecbfc8703e874e8d50185a76747d4b13b2d6e824 (23 lines) (+15/-8) ^{[ Show | Annotate ]}
  Branch: 7.9

--with-machine-code finally seems to work on sparc.

Rev: src/interpret_functions.h:1.80
Rev: src/program.c:1.356

1:   /* -  * $Id: interpret_functions.h,v 1.79 2001/07/18 17:42:36 grubba Exp $ +  * $Id: interpret_functions.h,v 1.80 2001/07/18 19:07:25 grubba Exp $    *    * Opcode definitions for the interpreter.    */
914:    * output. */   OPCODE0_TAIL(F_CLEANUP_SYNCH_MARK, "cleanup synch mark", {    OPCODE0(F_POP_SYNCH_MARK, "pop synch mark", { -  if (*--Pike_mark_sp != Pike_sp && d_flag) { +  if (d_flag) { +  if (Pike_mark_sp <= Pike_interpreter.mark_stack) { +  fatal("Mark stack out of synch - 0x%08x <= 0x%08x.\n", +  DO_NOT_WARN((unsigned long)Pike_mark_sp), +  DO_NOT_WARN((unsigned long)Pike_interpreter.mark_stack)); +  } else if (*--Pike_mark_sp != Pike_sp) {    ptrdiff_t should = *Pike_mark_sp - Pike_interpreter.evaluator_stack;    ptrdiff_t is = Pike_sp - Pike_interpreter.evaluator_stack;    if (Pike_sp - *Pike_mark_sp > 0) /* not always same as Pike_sp > *Pike_mark_sp */
923:    fatal("Stack out of synch - should be %ld, is %ld.\n",    DO_NOT_WARN((long)should), DO_NOT_WARN((long)is));    } +  }    });   });