diff --git a/lisp/gencgc.c b/lisp/gencgc.c index a5773e7c0664f340fbb2c1b3bf32afceb31f9038..e7bb1860d7c520504c69c4009eafe2c5bba6660e 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