From: Stas Boukarev <stassats@gmail.com>
Date: Thu, 17 May 2012 21:10:13 +0000 (+0400)
Subject: Fix build on windows.
X-Git-Url: http://repo.macrolet.net/gitweb/?a=commitdiff_plain;h=29fe19ac6c578b145dd56756ceebd17948c0c6b1;p=sbcl.git

Fix build on windows.

* Include sbcl.h before LISP_FEATURE_WIN32 is used in coreparse.c
* Include stub for _exit.
---

diff --git a/src/runtime/coreparse.c b/src/runtime/coreparse.c
index d3fa306..fefa834 100644
--- a/src/runtime/coreparse.c
+++ b/src/runtime/coreparse.c
@@ -14,6 +14,8 @@
  * files for more information.
  */
 
+#include "sbcl.h"
+
 #ifndef LISP_FEATURE_WIN32
 #ifdef LISP_FEATURE_LINUX
 /* For madvise */
@@ -34,8 +36,6 @@
 #include <fcntl.h>
 #include <unistd.h>
 
-#include "sbcl.h"
-
 #include "os.h"
 #include "runtime.h"
 #include "globals.h"
diff --git a/src/runtime/undefineds.h b/src/runtime/undefineds.h
index da1f076..b1cb325 100644
--- a/src/runtime/undefineds.h
+++ b/src/runtime/undefineds.h
@@ -56,6 +56,7 @@ F(dup)
 F(dup2)
 F(execve)
 F(exit)
+F(_exit)
 F(fchmod)
 F(fchown)
 F(fcntl)
diff --git a/src/runtime/win32-os.c b/src/runtime/win32-os.c
index 80a6ed2..3d27f78 100644
--- a/src/runtime/win32-os.c
+++ b/src/runtime/win32-os.c
@@ -604,6 +604,7 @@ void scratch(void)
       SetCurrentDirectoryW(0);
       SetEnvironmentVariableW(0, 0);
     #endif
+    _exit(0);
 }
 
 char *