Skip to content
Snippets Groups Projects
Commit ae4b11b2 authored by dtc's avatar dtc
Browse files

Move code for HOLES into sunos-os.c. From Raymond Toy.

parent e5a4d017
No related branches found
No related tags found
No related merge requests found
/*
* $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
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment