2 * mini-darwin.c: Darwin/MacOS support for Mono.
5 * Mono Team (mono-list@lists.ximian.com)
7 * Copyright 2001-2003 Ximian, Inc.
8 * Copyright 2003-2011 Novell, Inc (http://www.novell.com)
9 * Copyright 2011 Xamarin, Inc (http://www.xamarin.com)
11 * See LICENSE for licensing information.
22 #ifdef HAVE_SYS_TIME_H
26 #include <mono/metadata/assembly.h>
27 #include <mono/metadata/loader.h>
28 #include <mono/metadata/tabledefs.h>
29 #include <mono/metadata/class.h>
30 #include <mono/metadata/object.h>
31 #include <mono/metadata/tokentype.h>
32 #include <mono/metadata/tabledefs.h>
33 #include <mono/metadata/threads.h>
34 #include <mono/metadata/appdomain.h>
35 #include <mono/metadata/debug-helpers.h>
36 #include <mono/io-layer/io-layer.h>
37 #include "mono/metadata/profiler.h"
38 #include <mono/metadata/profiler-private.h>
39 #include <mono/metadata/mono-config.h>
40 #include <mono/metadata/environment.h>
41 #include <mono/metadata/mono-debug.h>
42 #include <mono/metadata/threads-types.h>
43 #include <mono/metadata/verify.h>
44 #include <mono/metadata/verify-internals.h>
45 #include <mono/metadata/mempool-internals.h>
46 #include <mono/metadata/attach.h>
47 #include <mono/metadata/gc-internal.h>
48 #include <mono/utils/mono-math.h>
49 #include <mono/utils/mono-compiler.h>
50 #include <mono/utils/mono-counters.h>
51 #include <mono/utils/mono-logger-internal.h>
52 #include <mono/utils/mono-mmap.h>
53 #include <mono/utils/dtrace.h>
61 #include "jit-icalls.h"
64 #include <mach/mach.h>
65 #include <mach/mach_error.h>
66 #include <mach/exception.h>
67 #include <mach/task.h>
70 #include <AvailabilityMacros.h>
71 #include <TargetConditionals.h>
73 #if (MAC_OS_X_VERSION_MIN_REQUIRED <= MAC_OS_X_VERSION_10_5) && TARGET_OS_IPHONE == 0 && TARGET_IPHONE_SIMULATOR == 0
74 #define NEEDS_EXCEPTION_THREAD
77 #ifdef NEEDS_EXCEPTION_THREAD
80 * This code disables the CrashReporter of MacOS X by installing
81 * a dummy Mach exception handler.
85 * http://darwinsource.opendarwin.org/10.4.3/xnu-792.6.22/osfmk/man/exc_server.html
87 extern boolean_t exc_server (mach_msg_header_t *request_msg, mach_msg_header_t *reply_msg);
90 * The exception message
93 mach_msg_base_t msg; /* common mach message header */
94 char payload [1024]; /* opaque */
95 } mach_exception_msg_t;
97 /* The exception port */
98 static mach_port_t mach_exception_port = VM_MAP_NULL;
101 catch_exception_raise (
102 mach_port_t exception_port,
105 exception_type_t exception,
106 exception_data_t code,
107 mach_msg_type_number_t code_count);
110 * Implicitly called by exc_server. Must be public.
112 * http://darwinsource.opendarwin.org/10.4.3/xnu-792.6.22/osfmk/man/catch_exception_raise.html
115 catch_exception_raise (
116 mach_port_t exception_port,
119 exception_type_t exception,
120 exception_data_t code,
121 mach_msg_type_number_t code_count)
123 /* consume the exception */
128 * Exception thread handler.
132 mach_exception_thread (void *arg)
135 mach_exception_msg_t request;
136 mach_exception_msg_t reply;
137 mach_msg_return_t result;
139 /* receive from "mach_exception_port" */
140 result = mach_msg (&request.msg.header,
141 MACH_RCV_MSG | MACH_RCV_LARGE,
145 MACH_MSG_TIMEOUT_NONE,
148 g_assert (result == MACH_MSG_SUCCESS);
150 /* dispatch to catch_exception_raise () */
151 exc_server (&request.msg.header, &reply.msg.header);
153 /* send back to sender */
154 result = mach_msg (&reply.msg.header,
156 reply.msg.header.msgh_size,
159 MACH_MSG_TIMEOUT_NONE,
163 If we try to abort the thread while delivering an exception. The port will be gone since the kernel
164 setup a send once port to deliver the resume message and thread_abort will consume it.
166 g_assert (result == MACH_MSG_SUCCESS || result == MACH_SEND_INVALID_DEST);
172 macosx_register_exception_handler (void)
178 if (mach_exception_port != VM_MAP_NULL)
181 task = mach_task_self ();
183 /* create the "mach_exception_port" with send & receive rights */
184 g_assert (mach_port_allocate (task, MACH_PORT_RIGHT_RECEIVE,
185 &mach_exception_port) == KERN_SUCCESS);
186 g_assert (mach_port_insert_right (task, mach_exception_port, mach_exception_port,
187 MACH_MSG_TYPE_MAKE_SEND) == KERN_SUCCESS);
189 /* create the exception handler thread */
190 g_assert (!pthread_attr_init (&attr));
191 g_assert (!pthread_attr_setdetachstate (&attr, PTHREAD_CREATE_DETACHED));
192 g_assert (!pthread_create (&thread, &attr, mach_exception_thread, NULL));
193 pthread_attr_destroy (&attr);
196 * register "mach_exception_port" as a receiver for the
197 * EXC_BAD_ACCESS exception
199 * http://darwinsource.opendarwin.org/10.4.3/xnu-792.6.22/osfmk/man/task_set_exception_ports.html
201 g_assert (task_set_exception_ports (task, EXC_MASK_BAD_ACCESS,
204 MACHINE_THREAD_STATE) == KERN_SUCCESS);
206 mono_gc_register_mach_exception_thread (thread);
211 /* This is #define'd by Boehm GC to _GC_dlopen. */
214 void* dlopen(const char* path, int mode);
217 mono_runtime_install_handlers (void)
219 #ifdef NEEDS_EXCEPTION_THREAD
220 macosx_register_exception_handler ();
222 mono_runtime_posix_install_handlers ();
224 /* Snow Leopard has a horrible bug: http://openradar.appspot.com/7209349
225 * This causes obscure SIGTRAP's for any application that comes across this built on
226 * Snow Leopard. This is a horrible hack to ensure that the private __CFInitialize
227 * is run on the main thread, so that we don't get SIGTRAPs later
229 #if defined (__APPLE__) && (defined (__i386__) || defined (__x86_64__))
231 void *handle = dlopen ("/System/Library/Frameworks/CoreFoundation.framework/CoreFoundation", RTLD_LAZY);
241 mono_runtime_syscall_fork ()
243 return (pid_t) fork ();
247 mono_gdb_render_native_backtraces (pid_t crashed_pid)
249 const char *argv [5];
250 char gdb_template [] = "/tmp/mono-gdb-commands.XXXXXX";
252 argv [0] = g_find_program_in_path ("gdb");
253 if (argv [0] == NULL) {
257 if (mkstemp (gdb_template) != -1) {
258 FILE *gdb_commands = fopen (gdb_template, "w");
260 fprintf (gdb_commands, "attach %ld\n", (long) crashed_pid);
261 fprintf (gdb_commands, "info threads\n");
262 fprintf (gdb_commands, "thread apply all bt\n");
264 fflush (gdb_commands);
265 fclose (gdb_commands);
269 argv [3] = gdb_template;
272 execv (argv [0], (char**)argv);
274 unlink (gdb_template);
279 mono_thread_state_init_from_handle (MonoThreadUnwindState *tctx, MonoNativeThreadId thread_id, MonoNativeThreadHandle thread_handle)
282 mach_msg_type_number_t num_state;
283 thread_state_t state;
286 guint32 domain_key, jit_key;
287 MonoJitTlsData *jit_tls;
289 #if defined (MONO_ARCH_ENABLE_MONO_LMF_VAR)
293 /*Zero enough state to make sure the caller doesn't confuse itself*/
295 tctx->unwind_data [MONO_UNWIND_DATA_DOMAIN] = NULL;
296 tctx->unwind_data [MONO_UNWIND_DATA_LMF] = NULL;
297 tctx->unwind_data [MONO_UNWIND_DATA_JIT_TLS] = NULL;
299 state = (thread_state_t) alloca (mono_mach_arch_get_thread_state_size ());
300 mctx = (mcontext_t) alloca (mono_mach_arch_get_mcontext_size ());
302 ret = mono_mach_arch_get_thread_state (thread_handle, state, &num_state);
303 if (ret != KERN_SUCCESS)
306 mono_mach_arch_thread_state_to_mcontext (state, mctx);
307 ctx.uc_mcontext = mctx;
309 mono_sigctx_to_monoctx (&ctx, &tctx->ctx);
311 domain_key = mono_domain_get_tls_offset ();
312 jit_key = mono_get_jit_tls_key ();
314 jit_tls = mono_mach_arch_get_tls_value_from_thread (thread_id, jit_key);
315 domain = mono_mach_arch_get_tls_value_from_thread (thread_id, domain_key);
317 /*Thread already started to cleanup, can no longer capture unwind state*/
318 if (!jit_tls || !domain)
321 #if defined (MONO_ARCH_ENABLE_MONO_LMF_VAR)
322 lmf_key = mono_get_lmf_tls_offset ();
323 tctx->unwind_data [MONO_UNWIND_DATA_LMF] = mono_mach_arch_get_tls_value_from_thread (thread_id, lmf_key);;
325 tctx->unwind_data [MONO_UNWIND_DATA_LMF] = jit_tls ? jit_tls->lmf : NULL;
328 tctx->unwind_data [MONO_UNWIND_DATA_DOMAIN] = domain;
329 tctx->unwind_data [MONO_UNWIND_DATA_JIT_TLS] = jit_tls;