[Sbcl-commits] CVS: sbcl/src/runtime validate.c,1.18,1.19

[William H. N. <wn...@us...>]

Update of /cvsroot/sbcl/sbcl/src/runtime
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv24192/src/runtime

Modified Files:
	validate.c 
Log Message:
0.8.8.14:
	tidying...
	...*REVERSED-TYPE-INFO-INIT-FORMS* isn't needed at run time.
	...HOLES stuff is long-dead code -- seems to be related to
		something on old old CMU CL SPARC port -- so delete it.
		(pointed out by nyef on #lisp)
	...For that matter, FIND-HOLES is no longer used either,
		so delete it too.
	...belated *and*-*edit* in cut-and-paste-and-edit of FTYPE
		declaration of !COLD-LOSE


Index: validate.c
===================================================================
RCS file: /cvsroot/sbcl/sbcl/src/runtime/validate.c,v
retrieving revision 1.18
retrieving revision 1.19
diff -u -d -r1.18 -r1.19
--- validate.c	20 Feb 2004 18:15:20 -0000	1.18
+++ validate.c	1 Apr 2004 02:05:05 -0000	1.19
@@ -34,28 +34,6 @@
     }
 }
 
-#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,
-		    "make_holes: 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)
 {
@@ -73,10 +51,6 @@
     ensure_space( (lispobj *)DYNAMIC_1_SPACE_START  , DYNAMIC_SPACE_SIZE);
 #endif
 
-#ifdef HOLES
-    make_holes();
-#endif
-    
 #ifdef PRINTNOISE
     printf(" done.\n");
 #endif