X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fruntime%2Fgencgc.c;h=b84987bfecf74658d828cae52822fd491d650848;hb=310aee0b439b715a5ec242862ab0a4d254e123b5;hp=d39bf9bbce989b81960fd2094e46a4560f392821;hpb=673234cb910923d41badca51b383e3188f375691;p=sbcl.git

diff --git a/src/runtime/gencgc.c b/src/runtime/gencgc.c
index d39bf9b..b84987b 100644
--- a/src/runtime/gencgc.c
+++ b/src/runtime/gencgc.c
@@ -2754,15 +2754,15 @@ scavenge_generations(generation_index_t from, generation_index_t to)
                         num_wp += update_page_write_prot(j);
                     }
                 }
+                if ((gencgc_verbose > 1) && (num_wp != 0)) {
+                    FSHOW((stderr,
+                           "/write protected %d pages within generation %d\n",
+                           num_wp, generation));
+                }
             }
             i = last_page;
         }
     }
-    if ((gencgc_verbose > 1) && (num_wp != 0)) {
-        FSHOW((stderr,
-               "/write protected %d pages within generation %d\n",
-               num_wp, generation));
-    }
 
 #if SC_GEN_CK
     /* Check that none of the write_protected pages in this generation