[Sbcl-commits] master: Fix build on windows.

[stassats <sta...@us...>]

The branch "master" has been updated in SBCL:
       via  29fe19ac6c578b145dd56756ceebd17948c0c6b1 (commit)
      from  d833d62dd152879f1aa4e974bd8337c51905d5ba (commit)

- Log -----------------------------------------------------------------
commit 29fe19ac6c578b145dd56756ceebd17948c0c6b1
Author: Stas Boukarev <sta...@gm...>
Date:   Fri May 18 01:10:13 2012 +0400

    Fix build on windows.
    
    * Include sbcl.h before LISP_FEATURE_WIN32 is used in coreparse.c
    * Include stub for _exit.
---
 src/runtime/coreparse.c  |    4 ++--
 src/runtime/undefineds.h |    1 +
 src/runtime/win32-os.c   |    1 +
 3 files changed, 4 insertions(+), 2 deletions(-)

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 *

-----------------------------------------------------------------------


hooks/post-receive
-- 
SBCL