X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fruntime%2Fwin32-os.c;h=baac264184965557a700c19266688ed069e20c3e;hb=1de12891f900d156ed035a097561ecd7755a256a;hp=9f945e831633cd5af0ea67532c3f647ffb22b0f3;hpb=2b90fd1dbad23322258222a2ef4cef7f6a00831d;p=sbcl.git diff --git a/src/runtime/win32-os.c b/src/runtime/win32-os.c index 9f945e8..baac264 100644 --- a/src/runtime/win32-os.c +++ b/src/runtime/win32-os.c @@ -50,6 +50,7 @@ #include #include #include +#include #include @@ -57,7 +58,6 @@ #include "thread.h" size_t os_vm_page_size; - #include "gc.h" #include "gencgc-internal.h" @@ -282,7 +282,7 @@ is_valid_lisp_addr(os_vm_address_t addr) struct thread *th; if(in_range_p(addr, READ_ONLY_SPACE_START, READ_ONLY_SPACE_SIZE) || in_range_p(addr, STATIC_SPACE_START , STATIC_SPACE_SIZE) || - in_range_p(addr, DYNAMIC_SPACE_START , DYNAMIC_SPACE_SIZE)) + in_range_p(addr, DYNAMIC_SPACE_START , dynamic_space_size)) return 1; for_each_thread(th) { if(((os_vm_address_t)th->control_stack_start <= addr) && (addr < (os_vm_address_t)th->control_stack_end))