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