From 719d6ca70f77be93d572f9a567f7ba01fdb537c7 Mon Sep 17 00:00:00 2001 From: wlott <wlott> Date: Sun, 22 Mar 1992 20:02:40 +0000 Subject: [PATCH] Don't set *PSEUDO-ATOMIC-{ATOMIC,INTERRUPTED}* on the sparc because pa is done differently now. --- ldb/ldb.c | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/ldb/ldb.c b/ldb/ldb.c index e2f9c58c0..537e25948 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.16 1992/03/08 18:42:40 wlott Exp $ */ +/* $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/ldb/Attic/ldb.c,v 1.17 1992/03/22 20:02:40 wlott Exp $ */ /* Lisp kernel core debugger */ #include <stdio.h> @@ -133,7 +133,7 @@ char *envp[]; SetSymbolValue(LISP_COMMAND_LINE_LIST, alloc_str_list(argv)); SetSymbolValue(LISP_ENVIRONMENT_LIST, alloc_str_list(envp)); -#ifndef mips +#if !defined(mips) && !defined(sparc) /* Turn on pseudo atomic for when we call into lisp. */ SetSymbolValue(PSEUDO_ATOMIC_ATOMIC, fixnum(1)); SetSymbolValue(PSEUDO_ATOMIC_INTERRUPTED, fixnum(0)); -- GitLab