# HG changeset patch
# User Karl Heuer <kwzh@gnu.org>
# Date 824843388 0
# Node ID f32beac333a09de44eebed17650527d50a4ba9ec
# Parent  1de3a922cfe02d6dbe5552f6d4c2f7fb8a1306db
(init_eval_once): Initialize specpdl_ptr.

diff -r 1de3a922cfe0 -r f32beac333a0 src/eval.c
--- a/src/eval.c	Tue Feb 20 14:48:08 1996 +0000
+++ b/src/eval.c	Tue Feb 20 19:09:48 1996 +0000
@@ -157,6 +157,7 @@
 {
   specpdl_size = 50;
   specpdl = (struct specbinding *) xmalloc (specpdl_size * sizeof (struct specbinding));
+  specpdl_ptr = specpdl;
   max_specpdl_size = 600;
   max_lisp_eval_depth = 200;