mono/mini/mini-windows.c

   1 /*
   2  * mini-posix.c: POSIX signal handling support for Mono.
   3  *
   4  * Authors:
   5  *   Mono Team (mono-list@lists.ximian.com)
   6  *
   7  * Copyright 2001-2003 Ximian, Inc.
   8  * Copyright 2003-2008 Ximian, Inc.
   9  *
  10  * See LICENSE for licensing information.
  11  */
  12 #include <config.h>
  13 #include <signal.h>
  14 #include <math.h>
  15
  16 #include <mono/metadata/assembly.h>
  17 #include <mono/metadata/loader.h>
  18 #include <mono/metadata/tabledefs.h>
  19 #include <mono/metadata/class.h>
  20 #include <mono/metadata/object.h>
  21 #include <mono/metadata/tokentype.h>
  22 #include <mono/metadata/tabledefs.h>
  23 #include <mono/metadata/threads.h>
  24 #include <mono/metadata/appdomain.h>
  25 #include <mono/metadata/debug-helpers.h>
  26 #include <mono/io-layer/io-layer.h>
  27 #include "mono/metadata/profiler.h"
  28 #include <mono/metadata/profiler-private.h>
  29 #include <mono/metadata/mono-config.h>
  30 #include <mono/metadata/environment.h>
  31 #include <mono/metadata/mono-debug.h>
  32 #include <mono/metadata/gc-internal.h>
  33 #include <mono/metadata/threads-types.h>
  34 #include <mono/metadata/verify.h>
  35 #include <mono/metadata/verify-internals.h>
  36 #include <mono/metadata/mempool-internals.h>
  37 #include <mono/metadata/attach.h>
  38 #include <mono/utils/mono-math.h>
  39 #include <mono/utils/mono-compiler.h>
  40 #include <mono/utils/mono-counters.h>
  41 #include <mono/utils/mono-logger-internal.h>
  42 #include <mono/utils/mono-mmap.h>
  43 #include <mono/utils/dtrace.h>
  44
  45 #include "mini.h"
  46 #include <string.h>
  47 #include <ctype.h>
  48 #include "trace.h"
  49 #include "version.h"
  50
  51 #include "jit-icalls.h"
  52
  53 gboolean mono_win_chained_exception_needs_run;
  54
  55 void
  56 mono_runtime_install_handlers (void)
  57 {
  58 #ifndef MONO_CROSS_COMPILE
  59         win32_seh_init();
  60         win32_seh_set_handler(SIGFPE, mono_sigfpe_signal_handler);
  61         win32_seh_set_handler(SIGILL, mono_sigill_signal_handler);
  62         win32_seh_set_handler(SIGSEGV, mono_sigsegv_signal_handler);
  63         if (mini_get_debug_options ()->handle_sigint)
  64                 win32_seh_set_handler(SIGINT, mono_sigint_signal_handler);
  65 #endif
  66 }
  67
  68 void
  69 mono_runtime_cleanup_handlers (void)
  70 {
  71 #ifndef MONO_CROSS_COMPILE
  72         win32_seh_cleanup();
  73 #endif
  74 }
  75
  76
  77 /* mono_chain_signal:
  78  *
  79  *   Call the original signal handler for the signal given by the arguments, which
  80  * should be the same as for a signal handler. Returns TRUE if the original handler
  81  * was called, false otherwise.
  82  */
  83 gboolean
  84 SIG_HANDLER_SIGNATURE (mono_chain_signal)
  85 {
  86         mono_win_chained_exception_needs_run = TRUE;
  87         return TRUE;
  88 }
  89
  90 static HANDLE win32_main_thread;
  91 static MMRESULT win32_timer;
  92
  93 static void CALLBACK
  94 win32_time_proc (UINT uID, UINT uMsg, DWORD dwUser, DWORD dw1, DWORD dw2)
  95 {
  96         CONTEXT context;
  97
  98         context.ContextFlags = CONTEXT_CONTROL;
  99         if (GetThreadContext (win32_main_thread, &context)) {
 100 #ifdef _WIN64
 101                 mono_profiler_stat_hit ((guchar *) context.Rip, &context);
 102 #else
 103                 mono_profiler_stat_hit ((guchar *) context.Eip, &context);
 104 #endif
 105         }
 106 }
 107
 108 void
 109 mono_runtime_setup_stat_profiler (void)
 110 {
 111         static int inited = 0;
 112         TIMECAPS timecaps;
 113
 114         if (inited)
 115                 return;
 116
 117         inited = 1;
 118         if (timeGetDevCaps (&timecaps, sizeof (timecaps)) != TIMERR_NOERROR)
 119                 return;
 120
 121         if ((win32_main_thread = OpenThread (READ_CONTROL | THREAD_GET_CONTEXT, FALSE, GetCurrentThreadId ())) == NULL)
 122                 return;
 123
 124         if (timeBeginPeriod (1) != TIMERR_NOERROR)
 125                 return;
 126
 127         if ((win32_timer = timeSetEvent (1, 0, win32_time_proc, 0, TIME_PERIODIC)) == 0) {
 128                 timeEndPeriod (1);
 129                 return;
 130         }
 131 }
 132
 133 void
 134 mono_runtime_shutdown_stat_profiler (void)
 135 {
 136 }
 137
 138 gboolean
 139 mono_thread_state_init_from_handle (MonoThreadUnwindState *tctx, MonoThreadInfo *info)
 140 {
 141         g_error ("Windows systems haven't been ported to support mono_thread_state_init_from_handle");
 142         return FALSE;
 143 }
 144