# HG changeset patch
# User Gerd Moellmann <gerd@gnu.org>
# Date 974825224 0
# Node ID 35fae77e31dc6b5bb58042377ed103ba95465ea2
# Parent  704ac01ba764cf8018ce8bb289728308b178169e
(Fbyte_code) <Bvarbind, Bunwind_protect>: Add
BEFORE/AFTER_POTENTIAL_GC.

diff -r 704ac01ba764 -r 35fae77e31dc src/bytecode.c
--- a/src/bytecode.c	Tue Nov 21 16:24:06 2000 +0000
+++ b/src/bytecode.c	Tue Nov 21 16:47:04 2000 +0000
@@ -644,7 +644,10 @@
 	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 @@
 	  }
 
 	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;