pike.git / src / interpret_functions.h

version» Context lines:

pike.git/src/interpret_functions.h:1:   /* -  * $Id: interpret_functions.h,v 1.49 2001/03/09 02:29:33 hubbe Exp $ +  * $Id: interpret_functions.h,v 1.50 2001/03/19 00:42:11 grubba Exp $    *    * Opcode definitions for the interpreter.    */      OPCODE0(F_UNDEFINED,"push UNDEFINED")    push_int(0);    Pike_sp[-1].subtype=NUMBER_UNDEFINED;   BREAK;      OPCODE0(F_CONST0, "push 0")
pike.git/src/interpret_functions.h:755:    * output. */   OPCODE0(F_CLEANUP_SYNCH_MARK, "cleanup synch mark")   OPCODE0_TAIL(F_POP_SYNCH_MARK, "pop synch mark")    if (*--Pike_mark_sp != Pike_sp && d_flag) {    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 */    /* Some attempt to recover, just to be able to report the backtrace. */    pop_n_elems(Pike_sp - *Pike_mark_sp);    fatal("Stack out of synch - should be %ld, is %ld.\n", -  (long) should, (long) is); +  DO_NOT_WARN((long)should), DO_NOT_WARN((long)is));    }   BREAK;      OPCODE0(F_CLEAR_STRING_SUBTYPE, "clear string subtype")    if(Pike_sp[-1].type==PIKE_T_STRING) Pike_sp[-1].subtype=0;   BREAK;       /* Jumps */   OPCODE0_JUMP(F_BRANCH,"branch")    DOJUMP();