1.0.46.26: mach-exception-handler improvement: current_mach_task

[sbcl.git] / src / runtime / darwin-os.h

diff --git a/src/runtime/darwin-os.h b/src/runtime/darwin-os.h
index 9228d1b..be8640d 100644 (file)
--- a/src/runtime/darwin-os.h
+++ b/src/runtime/darwin-os.h
@@ -34,4 +34,8 @@ typedef ucontext_t os_context_t;
 
 #define SIG_STOP_FOR_GC (SIGUSR2)
 
+#ifdef LISP_FEATURE_MACH_EXCEPTION_HANDLER
+extern mach_port_t current_mach_task;
+#endif
+
 #endif /* _DARWIN_OS_H */