From e7b4d03f5a74b16c924079b75f5b0617c9ee7add Mon Sep 17 00:00:00 2001 From: Tom Tromey Date: Thu, 4 Jul 2013 19:48:59 -0600 Subject: [PATCH] initialize saved_value initialize the saved_value field in all needed cases also, add an assertion to do_one_unbind --- src/eval.c | 2 ++ 1 file changed, 2 insertions(+) diff --git a/src/eval.c b/src/eval.c index 3f7be81a7e4..37ea81ba1cb 100644 --- a/src/eval.c +++ b/src/eval.c @@ -3118,6 +3118,7 @@ specbind (Lisp_Object symbol, Lisp_Object value) specpdl_ptr->v.let.symbol = symbol; specpdl_ptr->v.let.old_value = ovalue; specpdl_ptr->v.let.where = Fcurrent_buffer (); + specpdl_ptr->v.let.saved_value = Qnil; eassert (sym->redirect != SYMBOL_LOCALIZED || (EQ (SYMBOL_BLV (sym)->where, Fcurrent_buffer ()))); @@ -3184,6 +3185,7 @@ rebind_for_thread_switch (void) static void do_one_unbind (struct specbinding *this_binding, int unwinding) { + eassert (unwinding || this_binding->kind >= SPECPDL_LET); switch (this_binding->kind) { case SPECPDL_UNWIND: -- 2.39.5