X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;ds=sidebyside;f=src%2Fruntime%2Fgencgc.c;h=a6891d0149f3ff6a9df1fe9d8ac324373b46acc7;hb=7fb597b585fc715537ea644f7d84440eca217ca1;hp=b8c672693127e47a19f07cb9f12ae1dc011e7941;hpb=b27fb452f72190637b03a6ef2e1333091da42a98;p=sbcl.git

diff --git a/src/runtime/gencgc.c b/src/runtime/gencgc.c
index b8c6726..a6891d0 100644
--- a/src/runtime/gencgc.c
+++ b/src/runtime/gencgc.c
@@ -3966,6 +3966,7 @@ gc_free_heap(void)
             page_table[page].allocated = FREE_PAGE_FLAG;
             page_table[page].bytes_used = 0;
 
+#ifndef LISP_FEATURE_WIN32 /* Pages already zeroed on win32? Not sure about this change. */
             /* Zero the page. */
             page_start = (void *)page_address(page);
 
@@ -3980,6 +3981,9 @@ gc_free_heap(void)
                      page_start,
                      addr);
             }
+#else
+            page_table[page].write_protected = 0;
+#endif
         } else if (gencgc_zero_check_during_free_heap) {
             /* Double-check that the page is zero filled. */
             long *page_start;