From cc94f3b24e447e04da3e899af8909cb77d648ef0 Mon Sep 17 00:00:00 2001
From: Gerd Moellmann
Date: Thu, 17 Feb 2000 09:45:46 +0000
Subject: Remove `LISP_FLOAT_TYPE' and `standalone'.

---
 src/bytecode.c | 16 ++++------------
 1 file changed, 4 insertions(+), 12 deletions(-)

(limited to 'src/bytecode.c')

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
-- 
cgit v1.2.1