From ae4b11b21700a6aab5a63c2d3abd8bed466539f4 Mon Sep 17 00:00:00 2001
From: dtc <dtc>
Date: Fri, 27 Oct 2000 19:32:52 +0000
Subject: [PATCH] Move code for HOLES into sunos-os.c.  From Raymond Toy.

---
 lisp/validate.c | 25 ++-----------------------
 1 file changed, 2 insertions(+), 23 deletions(-)

diff --git a/lisp/validate.c b/lisp/validate.c
index f2f09dd08..a8b093a4e 100644
--- a/lisp/validate.c
+++ b/lisp/validate.c
@@ -1,5 +1,5 @@
 /*
- * $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/lisp/validate.c,v 1.8 2000/10/27 19:25:56 dtc Exp $
+ * $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/lisp/validate.c,v 1.9 2000/10/27 19:32:52 dtc Exp $
  *
  * Memory Validation
  */
@@ -21,27 +21,6 @@ static void ensure_space(lispobj *start, unsigned long size)
     }
 }
 
-#ifdef HOLES
-
-static os_vm_address_t holes[] = HOLES;
-
-static void make_holes(void)
-{
-    int i;
-
-    for (i = 0; i < sizeof(holes)/sizeof(holes[0]); i++) {
-	if (os_validate(holes[i], HOLE_SIZE) == NULL) {
-	    fprintf(stderr,
-		    "ensure_space: Failed to validate %ld bytes at 0x%08X\n",
-		    HOLE_SIZE,
-		    (unsigned long)holes[i]);
-	    exit(1);
-	}
-	os_protect(holes[i], HOLE_SIZE, 0);
-    }
-}
-#endif
-
 void validate(void)
 {
 #ifdef PRINTNOISE
@@ -81,7 +60,7 @@ void validate(void)
 	binding_stack = (lispobj *) BINDING_STACK_START;
 	ensure_space(binding_stack, BINDING_STACK_SIZE);
 
-#ifdef HOLES
+#ifdef sparc
 	make_holes();
 #endif
 
-- 
GitLab