From f350b8a684dee5c4591d0d36cb6884c4eaa7f303 Mon Sep 17 00:00:00 2001 From: wlott <wlott> Date: Fri, 3 May 1991 07:55:49 +0000 Subject: [PATCH] Only initialized the binding stack pointer when we are loading a kernel core. --- ldb/ldb.c | 5 +++-- 1 file changed, 3 insertions(+), 2 deletions(-) diff --git a/ldb/ldb.c b/ldb/ldb.c index 9ded9d746..6c9d13392 100644 --- a/ldb/ldb.c +++ b/ldb/ldb.c @@ -1,4 +1,4 @@ -/* $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/ldb/Attic/ldb.c,v 1.11 1991/02/16 01:00:31 wlott Exp $ */ +/* $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/ldb/Attic/ldb.c,v 1.12 1991/05/03 07:55:49 wlott Exp $ */ /* Lisp kernel core debugger */ #include <stdio.h> @@ -88,7 +88,8 @@ char *envp[]; restore_state = load_core_file(core); #ifdef ibmrt - SetSymbolValue(BINDING_STACK_POINTER, (lispobj)binding_stack); + if (!restore_state) + SetSymbolValue(BINDING_STACK_POINTER, (lispobj)binding_stack); #endif interrupt_init(); -- GitLab