diff --git a/lisp/validate.c b/lisp/validate.c index f2f09dd08edcb40eb155144ce141e5c3dc8d3b13..a8b093a4e0e7368d2878556bea2e5b3c463553cd 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