X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fruntime%2Fgencgc.c;h=9fb8e4436dc09c94a8fe206ee26f61d9aed748ce;hb=230707c1899c1c008f7ce2ad97e2fd04849f7443;hp=c8c6919f23178281dec432d4fd052e99d2f497c8;hpb=88cc2f72774202503588331fddd1592ae8546de1;p=sbcl.git

diff --git a/src/runtime/gencgc.c b/src/runtime/gencgc.c
index c8c6919..9fb8e44 100644
--- a/src/runtime/gencgc.c
+++ b/src/runtime/gencgc.c
@@ -4043,6 +4043,7 @@ scavenge_interrupt_contexts(void)
 
 #endif
 
+#if defined(LISP_FEATURE_SB_THREAD)
 static void
 preserve_context_registers (os_context_t *c)
 {
@@ -4067,6 +4068,7 @@ preserve_context_registers (os_context_t *c)
         preserve_pointer(*ptr);
     }
 }
+#endif
 
 /* Garbage collect a generation. If raise is 0 then the remains of the
  * generation are not raised to the next generation. */