mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-25 15:00:45 -08:00
Code Issues Projects Releases Wiki Activity

(Fbyte_code) <Bvarbind, Bunwind_protect>: Add

Browse source 
BEFORE/AFTER_POTENTIAL_GC.
This commit is contained in:
Gerd Moellmann 2000-11-21 16:47:04 +00:00
parent 9bbd146557
commit 56b8eef5a0
1 changed files with 6 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

6
src/bytecode.c
View file

@ -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;