X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;ds=sidebyside;f=src%2Fruntime%2Fwin32-os.c;h=b77f4eafae4680d48f146b244cf7cfcce6f1c3f1;hb=8e9908b6f79b7bb52a281cfcbf0712d4b914f3cf;hp=9161889d3a23d7f80ecb2b690b026b599d1ece03;hpb=14ee896f8d31180cee945d11a8ee677558b944aa;p=sbcl.git

diff --git a/src/runtime/win32-os.c b/src/runtime/win32-os.c
index 9161889..b77f4ea 100644
--- a/src/runtime/win32-os.c
+++ b/src/runtime/win32-os.c
@@ -646,6 +646,8 @@ char *dirname(char *path)
 
 /* This is a manually-maintained version of ldso_stubs.S. */
 
+void __stdcall RtlUnwind(void *, void *, void *, void *); /* I don't have winternl.h */
+
 void scratch(void)
 {
     CloseHandle(0);
@@ -682,6 +684,7 @@ void scratch(void)
     sinh(0);
     strerror(42);
     write(0, 0, 0);
+    RtlUnwind(0, 0, 0, 0);
     #ifndef LISP_FEATURE_SB_UNICODE
       CreateDirectoryA(0,0);
       GetComputerNameA(0, 0);