X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;ds=inline;f=src%2Fruntime%2Fthread.h;h=8f0436fa2a48d2ffde26a0509ae3596957367821;hb=4f86979ad00797600929481bc01c08e00de266a1;hp=d124437f0745e0d37ce3bcefefd3288b8f3dabcb;hpb=b6537fc9d37ad800f8faba89ebbde7fdf8910d2a;p=sbcl.git

diff --git a/src/runtime/thread.h b/src/runtime/thread.h
index d124437..8f0436f 100644
--- a/src/runtime/thread.h
+++ b/src/runtime/thread.h
@@ -144,6 +144,11 @@ static inline struct thread *arch_os_get_current_thread() {
 #endif
 }
 
+#if defined(LISP_FEATURE_MACH_EXCEPTION_HANDLER)
+#define THREAD_STRUCT_TO_EXCEPTION_PORT(th) ((mach_port_t) th)
+#define EXCEPTION_PORT_TO_THREAD_STRUCT(th) ((struct thread *) th)
+#endif
+
 #if defined(LISP_FEATURE_SB_THREAD)
 #define thread_self pthread_self
 #define thread_kill pthread_kill