Fix build on windows.
authorStas Boukarev <stassats@gmail.com>
Thu, 17 May 2012 21:10:13 +0000 (01:10 +0400)
committerStas Boukarev <stassats@gmail.com>
Thu, 17 May 2012 21:10:13 +0000 (01:10 +0400)
* Include sbcl.h before LISP_FEATURE_WIN32 is used in coreparse.c
* Include stub for _exit.

src/runtime/coreparse.c
src/runtime/undefineds.h
src/runtime/win32-os.c

index d3fa306..fefa834 100644 (file)
@@ -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"
index da1f076..b1cb325 100644 (file)
@@ -56,6 +56,7 @@ F(dup)
 F(dup2)
 F(execve)
 F(exit)
+F(_exit)
 F(fchmod)
 F(fchown)
 F(fcntl)
index 80a6ed2..3d27f78 100644 (file)
@@ -604,6 +604,7 @@ void scratch(void)
       SetCurrentDirectoryW(0);
       SetEnvironmentVariableW(0, 0);
     #endif
+    _exit(0);
 }
 
 char *