X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fruntime%2Falpha-osf1-os.c;h=d4e54d899a62f194d162f1716a16358f435ec3c7;hb=65a01dae3d437a48e8dd0d051a446245f9e29929;hp=86105008759f0965bfb255af0c1e1610d31096e6;hpb=48f92d19cf12f3aff81a29a786970264a523bc7a;p=sbcl.git

diff --git a/src/runtime/alpha-osf1-os.c b/src/runtime/alpha-osf1-os.c
index 8610500..d4e54d8 100644
--- a/src/runtime/alpha-osf1-os.c
+++ b/src/runtime/alpha-osf1-os.c
@@ -41,9 +41,18 @@
 #include "validate.h"
 size_t os_vm_page_size;
 
-#if defined GENCGC		/* unlikely ... */
-#error SBCL Alpha does not work with the GENCGC
-#include "gencgc.h"
+#ifdef LISP_FEATURE_SB_THREAD
+#error "Define threading support functions"
+#else
+struct thread *arch_os_get_current_thread() {
+    return all_threads;
+}
+int arch_os_thread_init(struct thread *thread) {
+    return 1;			/* success */
+}
+int arch_os_thread_cleanup(struct thread *thread) {
+    return 1;			/* success */
+}
 #endif
 
 os_context_register_t   *