X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fruntime%2Fwin32-os.c;h=80a6ed2b1a53a03c722e121abb79bb35fb374d19;hb=df9e151e5c81ac2716011c246c0e62848527b9b3;hp=6be2b1202d3bb2b9f6a32dadd252c5d13933b019;hpb=6caf3ed5713773cb423f46bf40a29f2438c97c78;p=sbcl.git

diff --git a/src/runtime/win32-os.c b/src/runtime/win32-os.c
index 6be2b12..80a6ed2 100644
--- 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);
                     }