From da8224b732ccde29fce434b69d17414f33804eaa Mon Sep 17 00:00:00 2001
From: wlott <wlott>
Date: Sat, 1 Dec 1990 22:48:11 +0000
Subject: [PATCH] On machines other than the mips, use PSEUDO_ATOMIC_ATOMIC and
 PSEUDO_ATOMIC_INTERRUPTED for implementing pseudo atomic.

---
 ldb/interrupt.c | 6 +++++-
 1 file changed, 5 insertions(+), 1 deletion(-)

diff --git a/ldb/interrupt.c b/ldb/interrupt.c
index 88d7d7ff4..efa8bbb15 100644
--- a/ldb/interrupt.c
+++ b/ldb/interrupt.c
@@ -1,4 +1,4 @@
-/* $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/ldb/Attic/interrupt.c,v 1.17 1990/11/28 17:14:26 wlott Exp $ */
+/* $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/ldb/Attic/interrupt.c,v 1.18 1990/12/01 22:48:11 wlott Exp $ */
 
 /* Interrupt handing magic. */
 
@@ -169,6 +169,8 @@ struct sigcontext *context;
     } else if ((!foreign_function_call_active)
 #ifdef mips
                && (context->sc_regs[FLAGS] & (1<<flag_Atomic))
+#else
+	       && (SymbolValue(PSEUDO_ATOMIC_ATOMIC))
 #endif               
                ) {
         pending_signal = signal;
@@ -177,6 +179,8 @@ struct sigcontext *context;
         context->sc_mask |= BLOCKABLE;
 #ifdef mips
         context->sc_regs[FLAGS] |= (1<<flag_Interrupted);
+#else
+	SetSymbolValue(PSEUDO_ATOMIC_INTERRUPTED, T);
 #endif
     } else
         handle_now(signal, code, context);
-- 
GitLab