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