From: David Lichteblau Date: Fri, 30 Sep 2011 08:09:08 +0000 (+0200) Subject: Fix the build on Windows X-Git-Url: http://repo.macrolet.net/gitweb/?a=commitdiff_plain;h=33b3b129c1c895c9583494dc75455f56c83ad748;p=sbcl.git Fix the build on Windows --- diff --git a/src/code/run-program.lisp b/src/code/run-program.lisp index 512a7a9..daebefe 100644 --- a/src/code/run-program.lisp +++ b/src/code/run-program.lisp @@ -899,6 +899,7 @@ Users Manual for details about the PROCESS structure."#-win32" (t (incf read-end count) (funcall copy-fun)))))))) + #-win32 (push handler *handlers-installed*))) ;;; FIXME: something very like this is done in SB-POSIX to treat diff --git a/src/runtime/coreparse.c b/src/runtime/coreparse.c index 3109b0b..60359d1 100644 --- a/src/runtime/coreparse.c +++ b/src/runtime/coreparse.c @@ -23,6 +23,8 @@ #include #include +#include "sbcl.h" + #ifndef LISP_FEATURE_WIN32 #ifdef LISP_FEATURE_LINUX /* For madvise */ @@ -31,7 +33,6 @@ #include #endif -#include "sbcl.h" #include "os.h" #include "runtime.h" #include "globals.h" diff --git a/src/runtime/save.c b/src/runtime/save.c index 2ab2101..9fd7d8e 100644 --- a/src/runtime/save.c +++ b/src/runtime/save.c @@ -149,6 +149,7 @@ write_and_compress_bytes(FILE *file, char *addr, long bytes, os_vm_offset_t file bytes = (bytes+os_vm_page_size-1)&~(os_vm_page_size-1); #ifdef LISP_FEATURE_WIN32 + long count; /* touch every single page in the space to force it to be mapped. */ for (count = 0; count < bytes; count += 0x1000) { volatile int temp = addr[count];