From 56b8eef5a07bba395b086189b2b9adc5fcaa85ce Mon Sep 17 00:00:00 2001 From: Gerd Moellmann Date: Tue, 21 Nov 2000 16:47:04 +0000 Subject: [PATCH] (Fbyte_code) : Add BEFORE/AFTER_POTENTIAL_GC. --- src/bytecode.c | 6 ++++++ 1 file changed, 6 insertions(+) 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; -- 2.39.2