Fix the build on Windows

diff --git a/src/code/run-program.lisp b/src/code/run-program.lisp
index 512a7a9..daebefe 100644 (file)
--- 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 (file)
--- a/src/runtime/coreparse.c
+++ b/src/runtime/coreparse.c
@@ -23,6 +23,8 @@
 #include <fcntl.h>
 #include <unistd.h>
 
+#include "sbcl.h"
+
 #ifndef LISP_FEATURE_WIN32
 #ifdef LISP_FEATURE_LINUX
 /* For madvise */
@@ -31,7 +33,6 @@
 #include <sys/mman.h>
 #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 (file)
--- 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];