diff options
Diffstat (limited to 'src/bytecode.c')
| -rw-r--r-- | src/bytecode.c | 16 |
1 files changed, 4 insertions, 12 deletions
diff --git a/src/bytecode.c b/src/bytecode.c index 52a0dba31d5..14a93f18f81 100644 --- a/src/bytecode.c +++ b/src/bytecode.c @@ -434,11 +434,9 @@ If the third argument is incorrect, Emacs may crash.") { #ifdef BYTE_CODE_SAFE if (top > stacke) - error ("Byte code stack overflow (byte compiler bug), pc %d, depth %d", - stack.pc - stack.byte_string_start, stacke - top); + abort (); else if (top < stack.bottom - 1) - error ("Byte code stack underflow (byte compiler bug), pc %d", - stack.pc - stack.byte_string_start); + abort (); #endif #ifdef BYTE_CODE_METER @@ -1042,7 +1040,6 @@ If the third argument is incorrect, Emacs may crash.") CHECK_NUMBER_OR_FLOAT_COERCE_MARKER (v1, 0); CHECK_NUMBER_OR_FLOAT_COERCE_MARKER (v2, 0); AFTER_POTENTIAL_GC (); -#ifdef LISP_FLOAT_TYPE if (FLOATP (v1) || FLOATP (v2)) { double f1, f2; @@ -1052,7 +1049,6 @@ If the third argument is incorrect, Emacs may crash.") TOP = (f1 == f2 ? Qt : Qnil); } else -#endif TOP = (XINT (v1) == XINT (v2) ? Qt : Qnil); break; } @@ -1532,15 +1528,11 @@ If the third argument is incorrect, Emacs may crash.") #ifdef BYTE_CODE_SAFE if (op < Bconstant) { - BEFORE_POTENTIAL_GC (); - error ("unknown bytecode %d (byte compiler bug)", op); - AFTER_POTENTIAL_GC (); + abort (); } if ((op -= Bconstant) >= const_length) { - BEFORE_POTENTIAL_GC (); - error ("no constant number %d (byte compiler bug)", op); - AFTER_POTENTIAL_GC (); + abort (); } PUSH (vectorp[op]); #else |