Use safepoints for INTERRUPT-THREAD

[sbcl.git] / src / runtime / win32-os.c

diff --git a/src/runtime/win32-os.c b/src/runtime/win32-os.c
old mode 100644 (file)
new mode 100755 (executable)
index 6be2b12..3d27f78
--- a/src/runtime/win32-os.c
+++ b/src/runtime/win32-os.c
@@ -399,7 +399,7 @@ handle_exception(EXCEPTION_RECORD *exception_record,
                  * exception handler if the gc doesn't take the wp violation?
                  */
                 if (exception_record->ExceptionInformation[0]) {
-                    int index = find_page_index(fault_address);
+                    page_index_t index = find_page_index(fault_address);
                     if ((index != -1) && (page_table[index].write_protected)) {
                         gencgc_handle_wp_violation(fault_address);
                     }
@@ -604,6 +604,7 @@ void scratch(void)
       SetCurrentDirectoryW(0);
       SetEnvironmentVariableW(0, 0);
     #endif
+    _exit(0);
 }
 
 char *