In ‘adjust-window-trailing-edge’ fix bug with size-preserved windows.

[gnu-emacs] / src / eval.c

diff --git a/src/eval.c b/src/eval.c
index 46550955d440e06ea93da908290d8f11bce645da..9bdcf4bed1747c27ab6239881ec88bc4cb81421c 100644 (file)
--- a/src/eval.c
+++ b/src/eval.c
@@ -200,6 +200,12 @@ backtrace_next (union specbinding *pdl)
   return pdl;
 }
 
+/* Return a pointer to somewhere near the top of the C stack.  */
+void *
+near_C_stack_top (void)
+{
+  return backtrace_args (backtrace_top ());
+}
 
 void
 init_eval_once (void)
@@ -220,6 +226,8 @@ static struct handler handlerlist_sentinel;
 void
 init_eval (void)
 {
+  gcprolist = 0;
+  byte_stack_list = 0;
   specpdl_ptr = specpdl;
   { /* Put a dummy catcher at top-level so that handlerlist is never NULL.
        This is important since handlerlist->nextfree holds the freelist