Mercurial > emacs

changeset 33688:35fae77e31dc

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(Fbyte_code) <Bvarbind, Bunwind_protect>: Add BEFORE/AFTER_POTENTIAL_GC.
author Gerd Moellmann <gerd@gnu.org>
date Tue, 21 Nov 2000 16:47:04 +0000
parents 704ac01ba764
children 17d5d6f5a867
files src/bytecode.c
diffstat 1 files changed, 6 insertions(+), 0 deletions(-) [+]
line wrap: on
line diff
--- 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;