master 88889212c7 4/5: Remove debug code for opcodes long gone

[Mattias Engdegård]

branch: master
commit 88889212c7d74fb189131dcae4abaabd05eb1870
Author: Mattias Engdegård <mattiase@acm.org>
Commit: Mattias Engdegård <mattiase@acm.org>

    Remove debug code for opcodes long gone
    
    * src/bytecode.c (BYTE_CODES, enum byte_code_op, exec_byte_code):
    Don't display custom messages in debug mode for Bscan_buffer and
    Bset_mark which were removed long ago.
---
 src/bytecode.c | 20 ++------------------
 1 file changed, 2 insertions(+), 18 deletions(-)

diff --git a/src/bytecode.c b/src/bytecode.c
index c5cc659012..8d3817e64c 100644
--- a/src/bytecode.c
+++ b/src/bytecode.c
@@ -186,6 +186,7 @@ DEFINE (Bfollowing_char, 0147)                              
                \
 DEFINE (Bpreceding_char, 0150)                                         \
 DEFINE (Bcurrent_column, 0151)                                         \
 DEFINE (Bindent_to, 0152)                                              \
+/* 0153 was Bscan_buffer in v17.  */                                    \
 DEFINE (Beolp, 0154)                                                   \
 DEFINE (Beobp, 0155)                                                   \
 DEFINE (Bbolp, 0156)                                                   \
@@ -193,6 +194,7 @@ DEFINE (Bbobp, 0157)                                        
                \
 DEFINE (Bcurrent_buffer, 0160)                                         \
 DEFINE (Bset_buffer, 0161)                                             \
 DEFINE (Bsave_current_buffer_1, 0162) /* Replacing Bsave_current_buffer.  */ \
+/* 0163 was Bset_mark in v17.  */                                       \
 DEFINE (Binteractive_p, 0164) /* Obsolete since Emacs-24.1.  */                
\
                                                                        \
 DEFINE (Bforward_char, 0165)                                           \
@@ -277,11 +279,6 @@ enum byte_code_op
 #define DEFINE(name, value) name = value,
     BYTE_CODES
 #undef DEFINE
-
-#if BYTE_CODE_SAFE
-    Bscan_buffer = 0153, /* No longer generated as of v18.  */
-    Bset_mark = 0163, /* this loser is no longer generated as of v18 */
-#endif
 };
 
 /* Fetch the next byte from the bytecode stream.  */
@@ -1467,19 +1464,6 @@ exec_byte_code (Lisp_Object bytestr, Lisp_Object vector, 
Lisp_Object maxdepth,
          TOP = INTEGERP (TOP) ? Qt : Qnil;
          NEXT;
 
-#if BYTE_CODE_SAFE
-         /* These are intentionally written using 'case' syntax,
-            because they are incompatible with the threaded
-            interpreter.  */
-
-       case Bset_mark:
-         error ("set-mark is an obsolete bytecode");
-         break;
-       case Bscan_buffer:
-         error ("scan-buffer is an obsolete bytecode");
-         break;
-#endif
-
        CASE_ABORT:
          /* Actually this is Bstack_ref with offset 0, but we use Bdup
             for that instead.  */