X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fruntime%2Fvalidate.c;h=5c24d47bf0ff8c07490f80530873d03acfa0b4d6;hb=686043635c45a16b418d2cc96a7f704fdab182c2;hp=3e021a59067151c32ed5b5b5d28397b7d3493d4d;hpb=6df93cdd503b613151de9c82982259b558465915;p=sbcl.git diff --git a/src/runtime/validate.c b/src/runtime/validate.c index 3e021a5..5c24d47 100644 --- a/src/runtime/validate.c +++ b/src/runtime/validate.c @@ -14,13 +14,16 @@ */ #include +#include + #include "runtime.h" #include "os.h" #include "globals.h" #include "sbcl.h" #include "validate.h" -static void ensure_space(lispobj *start, unsigned long size) +static void +ensure_space(lispobj *start, unsigned long size) { if (os_validate((os_vm_address_t)start,(os_vm_size_t)size)==NULL) { fprintf(stderr, @@ -35,7 +38,8 @@ static void ensure_space(lispobj *start, unsigned long size) static os_vm_address_t holes[] = HOLES; -static void make_holes(void) +static void +make_holes(void) { int i; @@ -52,7 +56,8 @@ static void make_holes(void) } #endif -void validate(void) +void +validate(void) { #ifdef PRINTNOISE printf("validating memory ..."); @@ -61,13 +66,21 @@ void validate(void) ensure_space( (lispobj *)READ_ONLY_SPACE_START, READ_ONLY_SPACE_SIZE); ensure_space( (lispobj *)STATIC_SPACE_START , STATIC_SPACE_SIZE); +#ifdef GENCGC ensure_space( (lispobj *)DYNAMIC_SPACE_START , DYNAMIC_SPACE_SIZE); +#else + ensure_space( (lispobj *)DYNAMIC_0_SPACE_START , DYNAMIC_SPACE_SIZE); + ensure_space( (lispobj *)DYNAMIC_1_SPACE_START , DYNAMIC_SPACE_SIZE); +#endif ensure_space( (lispobj *)CONTROL_STACK_START , CONTROL_STACK_SIZE); ensure_space( (lispobj *)BINDING_STACK_START , BINDING_STACK_SIZE); #ifdef HOLES make_holes(); #endif +#ifndef GENCGC + current_dynamic_space = DYNAMIC_0_SPACE_START; +#endif #ifdef PRINTNOISE printf(" done.\n");