* eval.c (internal_lisp_condition_case): Don't overrun the stack

when configured --with-wide-int on typical 32-bit platforms.

diff --git a/src/ChangeLog b/src/ChangeLog
index 661731a9c5deeb02fed760481d32ee973aea53b2..5e3ec8aa597a6b09eb074fef9850b3628dd123ac 100644 (file)
--- a/src/ChangeLog
+++ b/src/ChangeLog
@@ -1,3 +1,8 @@
+2014-09-02  Paul Eggert  <eggert@cs.ucla.edu>
+
+       * eval.c (internal_lisp_condition_case): Don't overrun the stack
+       when configured --with-wide-int on typical 32-bit platforms.
+
 2014-08-31  Eli Zaretskii  <eliz@gnu.org>
 
        * xdisp.c (display_and_set_cursor): Call erase_phys_cursor also

diff --git a/src/eval.c b/src/eval.c
index a96d413d09fc6494c9982d3046b05a29a8076a94..5e986c7ecc28b12b0af45e3db42ab924f3fb80e3 100644 (file)
--- a/src/eval.c
+++ b/src/eval.c
@@ -1280,7 +1280,7 @@ internal_lisp_condition_case (volatile Lisp_Object var, Lisp_Object bodyform,
   { /* The first clause is the one that should be checked first, so it should
        be added to handlerlist last.  So we build in `clauses' a table that
        contains `handlers' but in reverse order.  */
-    Lisp_Object *clauses = alloca (clausenb * sizeof (Lisp_Object *));
+    Lisp_Object *clauses = alloca (clausenb * sizeof *clauses);
     Lisp_Object *volatile clauses_volatile = clauses;
     int i = clausenb;
     for (val = handlers; CONSP (val); val = XCDR (val))