X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fruntime%2Fgencgc.c;fp=src%2Fruntime%2Fgencgc.c;h=27cca07020ea54f47a94d902cd46f6570afa3d49;hb=4438080fb2f654d99c265252963fcea6266b4d40;hp=ae2d5e06e36f59667414e9cd43cf027ee8c8e91e;hpb=28b58439eb6366a1bab3018fe68af7cac86c718e;p=sbcl.git

diff --git a/src/runtime/gencgc.c b/src/runtime/gencgc.c
index ae2d5e0..27cca07 100644
--- a/src/runtime/gencgc.c
+++ b/src/runtime/gencgc.c
@@ -251,6 +251,8 @@ page_ends_contiguous_block_p(page_index_t page_index, generation_index_t gen)
 {
     return (/* page doesn't fill block */
             (page_table[page_index].bytes_used < GENCGC_CARD_BYTES)
+            /* page is last allocated page */
+            || ((page_index + 1) >= last_free_page)
             /* next page free */
             || page_free_p(page_index + 1)
             /* next page contains no data */