Move the global safepoint to one page before static space

[sbcl.git] / src / runtime / safepoint.c

diff --git a/src/runtime/safepoint.c b/src/runtime/safepoint.c
index d94a61e..d28d5b9 100644 (file)
--- a/src/runtime/safepoint.c
+++ b/src/runtime/safepoint.c
@@ -51,6 +51,12 @@
  * definition goes here.  Fixme: (Why) don't these work for Windows?
  */
 void
+alloc_gc_page()
+{
+    os_validate(GC_SAFEPOINT_PAGE_ADDR, 4);
+}
+
+void
 map_gc_page()
 {
     odxprint(misc, "map_gc_page");