From: Gerd Moellmann <gerd@gnu.org>
Date: Tue, 21 Nov 2000 16:47:04 +0000 (+0000)
Subject: (Fbyte_code) <Bvarbind, Bunwind_protect>: Add
X-Git-Tag: emacs-pretest-21.0.92~234
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=56b8eef5a07bba395b086189b2b9adc5fcaa85ce;p=emacs.git

(Fbyte_code) <Bvarbind, Bunwind_protect>: Add
BEFORE/AFTER_POTENTIAL_GC.
---

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;