* define current_mach_task variable, squirrel away the value of
mach_task_self there and use that instead of calling mach_task_self
so that we don't leak send rights all over the place
signal handlers run in the relevant thread directly. */
mach_port_t mach_exception_handler_port_set = MACH_PORT_NULL;
signal handlers run in the relevant thread directly. */
mach_port_t mach_exception_handler_port_set = MACH_PORT_NULL;
+mach_port_t current_mach_task = MACH_PORT_NULL;
pthread_t
setup_mach_exception_handling_thread()
pthread_t
setup_mach_exception_handling_thread()
pthread_t mach_exception_handling_thread = NULL;
pthread_attr_t attr;
pthread_t mach_exception_handling_thread = NULL;
pthread_attr_t attr;
+ current_mach_task = mach_task_self();
+
/* allocate a mach_port for this process */
/* allocate a mach_port for this process */
- ret = mach_port_allocate(mach_task_self(),
+ ret = mach_port_allocate(current_mach_task,
MACH_PORT_RIGHT_PORT_SET,
&mach_exception_handler_port_set);
MACH_PORT_RIGHT_PORT_SET,
&mach_exception_handler_port_set);
FSHOW((stderr, "Allocating mach port %x\n", thread_exception_port));
FSHOW((stderr, "Allocating mach port %x\n", thread_exception_port));
- ret = mach_port_allocate_name(mach_task_self(),
+ ret = mach_port_allocate_name(current_mach_task,
MACH_PORT_RIGHT_RECEIVE,
thread_exception_port);
if (ret) {
MACH_PORT_RIGHT_RECEIVE,
thread_exception_port);
if (ret) {
}
/* establish the right for the thread_exception_port to send messages */
}
/* establish the right for the thread_exception_port to send messages */
- ret = mach_port_insert_right(mach_task_self(),
+ ret = mach_port_insert_right(current_mach_task,
thread_exception_port,
thread_exception_port,
MACH_MSG_TYPE_MAKE_SEND);
thread_exception_port,
thread_exception_port,
MACH_MSG_TYPE_MAKE_SEND);
lose("thread_set_exception_port failed with return_code %d\n", ret);
}
lose("thread_set_exception_port failed with return_code %d\n", ret);
}
- ret = mach_port_move_member(mach_task_self(),
+ ret = mach_port_move_member(current_mach_task,
thread_exception_port,
mach_exception_handler_port_set);
if (ret) {
thread_exception_port,
mach_exception_handler_port_set);
if (ret) {
#define SIG_STOP_FOR_GC (SIGUSR2)
#define SIG_STOP_FOR_GC (SIGUSR2)
+#ifdef LISP_FEATURE_MACH_EXCEPTION_HANDLER
+extern mach_port_t current_mach_task;
+#endif
+
#endif /* _DARWIN_OS_H */
#endif /* _DARWIN_OS_H */
#ifdef LISP_FEATURE_MACH_EXCEPTION_HANDLER
FSHOW((stderr, "Deallocating mach port %x\n", THREAD_STRUCT_TO_EXCEPTION_PORT(th)));
#ifdef LISP_FEATURE_MACH_EXCEPTION_HANDLER
FSHOW((stderr, "Deallocating mach port %x\n", THREAD_STRUCT_TO_EXCEPTION_PORT(th)));
- mach_port_move_member(mach_task_self(),
+ mach_port_move_member(current_mach_task,
THREAD_STRUCT_TO_EXCEPTION_PORT(th),
MACH_PORT_NULL);
THREAD_STRUCT_TO_EXCEPTION_PORT(th),
MACH_PORT_NULL);
- mach_port_deallocate(mach_task_self(),
+ mach_port_deallocate(current_mach_task,
THREAD_STRUCT_TO_EXCEPTION_PORT(th));
THREAD_STRUCT_TO_EXCEPTION_PORT(th));
- mach_port_destroy(mach_task_self(),
+ mach_port_destroy(current_mach_task,
THREAD_STRUCT_TO_EXCEPTION_PORT(th));
#endif
THREAD_STRUCT_TO_EXCEPTION_PORT(th));
#endif
;;; checkins which aren't released. (And occasionally for internal
;;; versions, especially for internal versions off the main CVS
;;; branch, it gets hairier, e.g. "0.pre7.14.flaky4.13".)
;;; checkins which aren't released. (And occasionally for internal
;;; versions, especially for internal versions off the main CVS
;;; branch, it gets hairier, e.g. "0.pre7.14.flaky4.13".)