Commit 56b8eef5 authored by Gerd Moellmann's avatar Gerd Moellmann

(Fbyte_code) <Bvarbind, Bunwind_protect>: Add

BEFORE/AFTER_POTENTIAL_GC.
parent 9bbd1465
......@@ -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;
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment