X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fruntime%2Fruntime.h;h=e99d86b22ee5cb5cc90d1f913bb36f828e80362e;hb=0285aa5ff8416027932daa001b84429be2ca559b;hp=7ee424848779d9ff193be0cff766bd028b744008;hpb=8340bf74c31b29e9552ef8f705b6e1298547c6ab;p=sbcl.git

diff --git a/src/runtime/runtime.h b/src/runtime/runtime.h
index 7ee4248..e99d86b 100644
--- a/src/runtime/runtime.h
+++ b/src/runtime/runtime.h
@@ -29,6 +29,12 @@
 #define thread_mutex_unlock(l) 0
 #endif
 
+#if defined(LISP_FEATURE_SB_SAFEPOINT)
+void map_gc_page();
+void unmap_gc_page();
+int check_pending_interrupts();
+#endif
+
 /* Block blockable interrupts for each SHOW, if not 0. */
 #define QSHOW_SIGNAL_SAFE 1
 /* Enable extra-verbose low-level debugging output for signals? (You
@@ -64,7 +70,7 @@ extern sigset_t blockable_sigset;
 #endif
 
 #ifdef LISP_FEATURE_SB_THREAD
-#define QSHOW_PREFIX fprintf(stderr, "%lu ", pthread_self());
+#define QSHOW_PREFIX fprintf(stderr, "%p ", pthread_self());
 #else
 #define QSHOW_PREFIX
 #endif
@@ -259,4 +265,8 @@ other_immediate_lowtag_p(lispobj header)
 extern void *successful_malloc (size_t size);
 extern char *copied_string (char *string);
 
+#if defined(LISP_FEATURE_SB_THREAD) && !defined(LISP_FEATURE_SB_SAFEPOINT)
+# define THREADS_USING_GCSIGNAL 1
+#endif
+
 #endif /* _SBCL_RUNTIME_H_ */