(CODING_CATEGORY_MASK_BINARY): New macro.

[gnu-emacs] / src / bytecode.c

diff --git a/src/bytecode.c b/src/bytecode.c
index 7c73696a99a254606924cb4906f6f8be1708afcb..4b909a1b3dc749cac2fb8802d194d083ea420b40 100644 (file)
--- a/src/bytecode.c
+++ b/src/bytecode.c
@@ -148,6 +148,7 @@ Lisp_Object Qbytecode;
 #define Bbobp 0157
 #define Bcurrent_buffer 0160
 #define Bset_buffer 0161
+#define Bsave_current_buffer_1 0162 /* Replacing Bsave_current_buffer.  */
 #define Bread_char 0162 /* No longer generated as of v19 */
 #define Bset_mark 0163 /* this loser is no longer generated as of v18 */
 #define Binteractive_p 0164 /* Needed since interactive-p takes unevalled args */
@@ -256,7 +257,20 @@ Lisp_Object Qbytecode;
 
 #define MAYBE_GC()                             \
   if (consing_since_gc > gc_cons_threshold)    \
-    Fgarbage_collect ();
+    {                                          \
+      Fgarbage_collect ();                     \
+      HANDLE_RELOCATION ();                    \
+    }                                          \
+  else
+
+/* Relocate BYTESTR if there has been a GC recently.  */
+#define HANDLE_RELOCATION()                                            \
+  if (! EQ (string_saved, bytestr))                                    \
+    {                                                                  \
+      pc = pc - XSTRING (string_saved)->data + XSTRING (bytestr)->data;        \
+      string_saved = bytestr;                                          \
+    }                                                                  \
+  else
 
 /* Check for jumping out of range.  */
 #define CHECK_RANGE(ARG)                       \
@@ -323,11 +337,8 @@ If the third argument is incorrect, Emacs may crash.")
               pc - XSTRING (string_saved)->data);
 #endif
 
-      if (! EQ (string_saved, bytestr))
-       {
-         pc = pc - XSTRING (string_saved)->data + XSTRING (bytestr)->data;
-         string_saved = bytestr;
-       }
+      /* Update BYTESTR if we had a garbage collection.  */
+      HANDLE_RELOCATION ();
 
 #ifdef BYTE_CODE_METER
       prev_op = this_op;
@@ -566,6 +577,7 @@ If the third argument is incorrect, Emacs may crash.")
          break;
 
        case Bsave_current_buffer:
+       case Bsave_current_buffer_1:
          record_unwind_protect (Fset_buffer, Fcurrent_buffer ());
          break;
 
@@ -948,11 +960,6 @@ If the third argument is incorrect, Emacs may crash.")
          TOP = Fset_buffer (TOP);
          break;
 
-       case Bread_char:
-         PUSH (Fread_char ());
-         QUIT;
-         break;
-
        case Binteractive_p:
          PUSH (Finteractive_p ());
          break;