projects
/
sbcl.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
disassemble: New customization variable sb-ext:*disassemble-annotate*.
[sbcl.git]
/
src
/
runtime
/
win32-os.c
diff --git
a/src/runtime/win32-os.c
b/src/runtime/win32-os.c
index
6be2b12
..
3d27f78
100644
(file)
--- 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]) {
* 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);
}
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
SetCurrentDirectoryW(0);
SetEnvironmentVariableW(0, 0);
#endif
+ _exit(0);
}
char *
}
char *