X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fruntime%2Fthread.h;h=8f0436fa2a48d2ffde26a0509ae3596957367821;hb=8e9908b6f79b7bb52a281cfcbf0712d4b914f3cf;hp=d124437f0745e0d37ce3bcefefd3288b8f3dabcb;hpb=8939690edb6e57cb735177f446b731c066e9a8fd;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