From 7ad6387388778c363a17fdd6a48bc02524427196 Mon Sep 17 00:00:00 2001 From: wlott <wlott> Date: Tue, 23 Oct 1990 00:05:51 +0000 Subject: [PATCH] Initialize PSEUDO_ATOMIC_{ATOMIC,INTERRUPTED}. --- ldb/ldb.c | 8 +++++++- 1 file changed, 7 insertions(+), 1 deletion(-) diff --git a/ldb/ldb.c b/ldb/ldb.c index 4b0e586a9..f75a38be1 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.9 1990/09/21 06:03:26 wlott Exp $ */ +/* $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/ldb/Attic/ldb.c,v 1.10 1990/10/23 00:05:51 wlott Exp $ */ /* Lisp kernel core debugger */ #include <stdio.h> @@ -93,6 +93,12 @@ char *envp[]; SetSymbolValue(LISP_COMMAND_LINE_LIST, alloc_str_list(argv)); SetSymbolValue(LISP_ENVIRONMENT_LIST, alloc_str_list(envp)); +#ifndef mips + /* Turn on pseudo atomic for when we call into lisp. */ + SetSymbolValue(PSEUDO_ATOMIC_ATOMIC, fixnum(1)); + SetSymbolValue(PSEUDO_ATOMIC_INTERRUPTED, fixnum(0)); +#endif + /* Snag a few of the signal */ test_init(); -- GitLab