summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorBarry O'Reilly <gundaetiapo@gmail.com>2013-10-19 14:42:38 -0400
committerBarry O'Reilly <gundaetiapo@gmail.com>2013-10-19 14:42:38 -0400
commit6a3121904d76e3b2f63007341d48c5c1af55de80 (patch)
tree0b6a9d797d11c07685a55fae9a293884d870a9a8
parent77936017aff66041231f078e8b269247c721456e (diff)
downloademacs-6a3121904d76e3b2f63007341d48c5c1af55de80.tar.gz
* src/eval.c (unbind_for_thread_switch): Fix iteration over the
specpdl stack.
-rw-r--r--src/ChangeLog5
-rw-r--r--src/eval.c4
2 files changed, 7 insertions, 2 deletions
diff --git a/src/ChangeLog b/src/ChangeLog
index 705b9c771df..b6ecd5f60ba 100644
--- a/src/ChangeLog
+++ b/src/ChangeLog
@@ -1,3 +1,8 @@
+2013-10-19 Barry O'Reilly <gundaetiapo@gmail.com>
+
+ * eval.c (unbind_for_thread_switch): Fix iteration over the
+ specpdl stack.
+
2013-09-01 Eli Zaretskii <eliz@gnu.org>
* eval.c (unbind_for_thread_switch): Accept a 'struct
diff --git a/src/eval.c b/src/eval.c
index b8a61590387..fc16c15e626 100644
--- a/src/eval.c
+++ b/src/eval.c
@@ -3488,9 +3488,9 @@ unbind_for_thread_switch (struct thread_state *thr)
{
union specbinding *bind;
- for (bind = thr->m_specpdl_ptr; bind != thr->m_specpdl; --bind)
+ for (bind = thr->m_specpdl_ptr; bind > thr->m_specpdl;)
{
- if (bind->kind >= SPECPDL_LET)
+ if ((--bind)->kind >= SPECPDL_LET)
{
bind->let.saved_value = find_symbol_value (specpdl_symbol (bind));
do_one_unbind (bind, 0);