From 6dd16a7a06b4948c6d7c491454ea0f4dedf8a0d5 Mon Sep 17 00:00:00 2001
From: dtc <dtc>
Date: Mon, 1 Dec 1997 16:44:57 +0000
Subject: [PATCH] Disable a test in alloc that tested that interrupts were
 disabled in non-pseudo-atomic allocations, because this code has been
 debugged now and the test may not have been very portable.

---
 lisp/gencgc.c | 9 +++++++--
 1 file changed, 7 insertions(+), 2 deletions(-)

diff --git a/lisp/gencgc.c b/lisp/gencgc.c
index a5773e7c0..e7bb1860d 100644
--- a/lisp/gencgc.c
+++ b/lisp/gencgc.c
@@ -7,7 +7,7 @@
  *
  * Douglas Crosher, 1996, 1997.
  *
- * $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/lisp/gencgc.c,v 1.3 1997/11/30 05:08:29 dtc Exp $
+ * $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/lisp/gencgc.c,v 1.4 1997/12/01 16:44:57 dtc Exp $
  * */
 
 #include <stdio.h>
@@ -5778,6 +5778,11 @@ char
     void *result;
     void *new_free_pointer;
 
+#if 0
+    /*
+     * Check that the interrupts are masked, else there could be
+     * trouble if the allocation is interrupted.
+     */
     sigset_t mask;
     sigprocmask(0,NULL,&mask);
     if (!mask) {
@@ -5794,7 +5799,7 @@ char
       */
       fprintf(stderr,"* Alloc non-atomic %x\n", mask);
     }
-      
+#endif      
     
   retry2:
     /* At least wrap this allocation in a pseudo atomic to prevent
-- 
GitLab