(Fbyte_code) <Bvarbind, Bunwind_protect>: Add

BEFORE/AFTER_POTENTIAL_GC.

1 files changed, 6 insertions, 0 deletions

diff --git a/src/bytecode.c b/src/bytecode.c
index a99860bd8cd..964dca8a830 100644
--- a/src/bytecode.c
+++ b/src/bytecode.c
@@ -644,7 +644,10 @@ If the third argument is incorrect, Emacs may crash.")
         case Bvarbind+5:
           op -= Bvarbind;
         varbind:
+          /* Specbind can signal and thus GC.  */
+          BEFORE_POTENTIAL_GC ();
           specbind (vectorp[op], POP);
+          AFTER_POTENTIAL_GC ();
           break;
 
         case Bcall+6:
@@ -850,7 +853,10 @@ If the third argument is incorrect, Emacs may crash.")
           }
 
         case Bunwind_protect:
+          /* The function record_unwind_protect can GC.  */
+          BEFORE_POTENTIAL_GC ();
           record_unwind_protect (0, POP);
+          AFTER_POTENTIAL_GC ();
           (specpdl_ptr - 1)->symbol = Qnil;
           break;