Extract the code to emit a memory barrier. Add a memory_barrier_kind field to MonoIns...

[mono.git] / mono / mini / mini-darwin.c

diff --git a/mono/mini/mini-darwin.c b/mono/mini/mini-darwin.c
index 81af7f5a4506a1f185afb3ddaa65ba75589535b2..8e6f93f3befaf60937dffb997fc48d68c413f643 100644 (file)
--- a/mono/mini/mini-darwin.c
+++ b/mono/mini/mini-darwin.c
@@ -22,10 +22,6 @@
 #include <sys/time.h>
 #endif
 
-#ifdef HAVE_VALGRIND_MEMCHECK_H
-#include <valgrind/memcheck.h>
-#endif
-
 #include <mono/metadata/assembly.h>
 #include <mono/metadata/loader.h>
 #include <mono/metadata/tabledefs.h>
@@ -42,16 +38,16 @@
 #include <mono/metadata/mono-config.h>
 #include <mono/metadata/environment.h>
 #include <mono/metadata/mono-debug.h>
-#include <mono/metadata/gc-internal.h>
 #include <mono/metadata/threads-types.h>
 #include <mono/metadata/verify.h>
 #include <mono/metadata/verify-internals.h>
 #include <mono/metadata/mempool-internals.h>
 #include <mono/metadata/attach.h>
+#include <mono/metadata/gc-internal.h>
 #include <mono/utils/mono-math.h>
 #include <mono/utils/mono-compiler.h>
 #include <mono/utils/mono-counters.h>
-#include <mono/utils/mono-logger.h>
+#include <mono/utils/mono-logger-internal.h>
 #include <mono/utils/mono-mmap.h>
 #include <mono/utils/dtrace.h>
 
@@ -69,6 +65,8 @@
 #include <mach/exception.h>
 #include <mach/task.h>
 #include <pthread.h>
+#include <dlfcn.h>
+#include <AvailabilityMacros.h>
 
 /*
  * This code disables the CrashReporter of MacOS X by installing
@@ -183,11 +181,115 @@ macosx_register_exception_handler ()
                                            mach_exception_port,
                                            EXCEPTION_DEFAULT,
                                            MACHINE_THREAD_STATE) == KERN_SUCCESS);
+
+       mono_gc_register_mach_exception_thread (thread);
 }
 
+/* This is #define'd by Boehm GC to _GC_dlopen. */
+#undef dlopen
+
 void
 mono_runtime_install_handlers (void)
 {
+#if MAC_OS_X_VERSION_MIN_REQUIRED <= MAC_OS_X_VERSION_10_5
        macosx_register_exception_handler ();
+#endif
        mono_runtime_posix_install_handlers ();
+
+       /* Snow Leopard has a horrible bug: http://openradar.appspot.com/7209349
+        * This causes obscure SIGTRAP's for any application that comes across this built on
+        * Snow Leopard.  This is a horrible hack to ensure that the private __CFInitialize
+        * is run on the main thread, so that we don't get SIGTRAPs later
+        */
+#if defined (__APPLE__) && (defined (__i386__) || defined (__x86_64__))
+       {
+               void *handle = dlopen ("/System/Library/Frameworks/CoreFoundation.framework/CoreFoundation", RTLD_LAZY);
+               if (handle == NULL)
+                       return;
+
+               dlclose (handle);
+       }
+#endif
+}
+
+pid_t
+mono_runtime_syscall_fork ()
+{
+       return (pid_t) fork ();
+}
+
+gboolean
+mono_gdb_render_native_backtraces ()
+{
+       const char *argv [5];
+       char gdb_template [] = "/tmp/mono-gdb-commands.XXXXXX";
+
+       argv [0] = g_find_program_in_path ("gdb");
+       if (argv [0] == NULL) {
+               return FALSE;
+       }
+
+       if (mkstemp (gdb_template) != -1) {
+               FILE *gdb_commands = fopen (gdb_template, "w");
+
+               fprintf (gdb_commands, "attach %ld\n", (long) getpid ());
+               fprintf (gdb_commands, "info threads\n");
+               fprintf (gdb_commands, "thread apply all bt\n");
+
+               fflush (gdb_commands);
+               fclose (gdb_commands);
+
+               argv [1] = "-batch";
+               argv [2] = "-x";
+               argv [3] = gdb_template;
+               argv [4] = 0;
+
+               execv (argv [0], (char**)argv);
+
+               unlink (gdb_template);
+       }
+
+       return TRUE;
+}
+
+gboolean
+mono_thread_state_init_from_handle (MonoThreadUnwindState *tctx, MonoNativeThreadId thread_id, MonoNativeThreadHandle thread_handle)
+{
+       kern_return_t ret;
+       mach_msg_type_number_t num_state;
+       thread_state_t state;
+       ucontext_t ctx;
+       mcontext_t mctx;
+       guint32 domain_key, jit_key;
+       MonoJitTlsData *jit_tls;
+       void *domain;
+
+       state = (thread_state_t) alloca (mono_mach_arch_get_thread_state_size ());
+       mctx = (mcontext_t) alloca (mono_mach_arch_get_mcontext_size ());
+
+       ret = mono_mach_arch_get_thread_state (thread_handle, state, &num_state);
+       if (ret != KERN_SUCCESS)
+               return FALSE;
+
+       mono_mach_arch_thread_state_to_mcontext (state, mctx);
+       ctx.uc_mcontext = mctx;
+
+       mono_sigctx_to_monoctx (&ctx, &tctx->ctx);
+
+       domain_key = mono_domain_get_tls_offset ();
+       jit_key = mono_pthread_key_for_tls (mono_get_jit_tls_key ());
+       jit_tls = mono_mach_arch_get_tls_value_from_thread (thread_id, jit_key);
+       domain = mono_mach_arch_get_tls_value_from_thread (thread_id, domain_key);
+
+       /*Thread already started to cleanup, can no longer capture unwind state*/
+       if (!jit_tls)
+               return FALSE;
+       g_assert (domain);
+
+       tctx->unwind_data [MONO_UNWIND_DATA_DOMAIN] = domain;
+       tctx->unwind_data [MONO_UNWIND_DATA_LMF] = jit_tls ? jit_tls->lmf : NULL;
+       tctx->unwind_data [MONO_UNWIND_DATA_JIT_TLS] = jit_tls;
+       tctx->valid = TRUE;
+
+       return TRUE;
 }