X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fruntime%2Fgencgc.c;h=838bcace3b23833d1e1dc70f5f809d545d981720;hb=2f9585060d5fe2c525955d80f34123761ded80fe;hp=a89d59c786dd3b7263aa85a0dcd203ee584461ff;hpb=7aef55b130d95c384b63422807f1848faa9aba5a;p=sbcl.git

diff --git a/src/runtime/gencgc.c b/src/runtime/gencgc.c
index a89d59c..838bcac 100644
--- a/src/runtime/gencgc.c
+++ b/src/runtime/gencgc.c
@@ -4019,6 +4019,10 @@ gc_init(void)
 {
     page_index_t i;
 
+#if defined(LISP_FEATURE_SB_SAFEPOINT)
+    alloc_gc_page();
+#endif
+
     /* Compute the number of pages needed for the dynamic space.
      * Dynamic space size should be aligned on page size. */
     page_table_pages = dynamic_space_size/GENCGC_CARD_BYTES;