mono/metadata/sgen-os-win32.c

   1 #include "config.h"
   2
   3 #if defined(HAVE_SGEN_GC) && !defined(USE_COOP_GC) && defined(HOST_WIN32)
   4
   5 #include "io-layer/io-layer.h"
   6
   7 #include "sgen/sgen-gc.h"
   8 #include "metadata/gc-internals.h"
   9
  10 gboolean
  11 sgen_resume_thread (SgenThreadInfo *info)
  12 {
  13         DWORD id = mono_thread_info_get_tid (info);
  14         HANDLE handle = OpenThread (THREAD_ALL_ACCESS, FALSE, id);
  15         DWORD result;
  16
  17         g_assert (handle);
  18
  19         result = ResumeThread (handle);
  20         g_assert (result != (DWORD)-1);
  21
  22         CloseHandle (handle);
  23
  24         return result != (DWORD)-1;
  25 }
  26
  27 gboolean
  28 sgen_suspend_thread (SgenThreadInfo *info)
  29 {
  30         DWORD id = mono_thread_info_get_tid (info);
  31         HANDLE handle = OpenThread (THREAD_ALL_ACCESS, FALSE, id);
  32         CONTEXT context;
  33         DWORD result;
  34
  35         g_assert (id != GetCurrentThreadId ());
  36
  37         g_assert (handle);
  38
  39         result = SuspendThread (handle);
  40         if (result == (DWORD)-1) {
  41                 fprintf (stderr, "could not suspend thread %x (handle %p): %d\n", id, handle, GetLastError ()); fflush (stderr);
  42                 CloseHandle (handle);
  43                 return FALSE;
  44         }
  45
  46         context.ContextFlags = CONTEXT_INTEGER | CONTEXT_CONTROL;
  47
  48         if (!GetThreadContext (handle, &context)) {
  49                 g_assert_not_reached ();
  50                 ResumeThread (handle);
  51                 CloseHandle (handle);
  52                 return FALSE;
  53         }
  54
  55         g_assert (context.ContextFlags & CONTEXT_INTEGER);
  56         g_assert (context.ContextFlags & CONTEXT_CONTROL);
  57
  58         CloseHandle (handle);
  59
  60 #if !defined(MONO_CROSS_COMPILE)
  61 #ifdef USE_MONO_CTX
  62         memset (&info->client_info.ctx, 0, sizeof (MonoContext));
  63 #ifdef TARGET_AMD64
  64     info->client_info.ctx.gregs[AMD64_RIP] = context.Rip;
  65     info->client_info.ctx.gregs[AMD64_RAX] = context.Rax;
  66     info->client_info.ctx.gregs[AMD64_RCX] = context.Rcx;
  67     info->client_info.ctx.gregs[AMD64_RDX] = context.Rdx;
  68     info->client_info.ctx.gregs[AMD64_RBX] = context.Rbx;
  69     info->client_info.ctx.gregs[AMD64_RSP] = context.Rsp;
  70     info->client_info.ctx.gregs[AMD64_RBP] = context.Rbp;
  71     info->client_info.ctx.gregs[AMD64_RSI] = context.Rsi;
  72     info->client_info.ctx.gregs[AMD64_RDI] = context.Rdi;
  73     info->client_info.ctx.gregs[AMD64_R8] = context.R8;
  74     info->client_info.ctx.gregs[AMD64_R9] = context.R9;
  75     info->client_info.ctx.gregs[AMD64_R10] = context.R10;
  76     info->client_info.ctx.gregs[AMD64_R11] = context.R11;
  77     info->client_info.ctx.gregs[AMD64_R12] = context.R12;
  78     info->client_info.ctx.gregs[AMD64_R13] = context.R13;
  79     info->client_info.ctx.gregs[AMD64_R14] = context.R14;
  80     info->client_info.ctx.gregs[AMD64_R15] = context.R15;
  81     info->client_info.stopped_ip = info->client_info.ctx.gregs[AMD64_RIP];
  82     info->client_info.stack_start = (char*)info->client_info.ctx.gregs[AMD64_RSP] - REDZONE_SIZE;
  83 #else
  84         info->client_info.ctx.edi = context.Edi;
  85         info->client_info.ctx.esi = context.Esi;
  86         info->client_info.ctx.ebx = context.Ebx;
  87         info->client_info.ctx.edx = context.Edx;
  88         info->client_info.ctx.ecx = context.Ecx;
  89         info->client_info.ctx.eax = context.Eax;
  90         info->client_info.ctx.ebp = context.Ebp;
  91         info->client_info.ctx.esp = context.Esp;
  92         info->client_info.stopped_ip = (gpointer)context.Eip;
  93         info->client_info.stack_start = (char*)context.Esp - REDZONE_SIZE;
  94 #endif
  95
  96 #else
  97         info->client_info.regs [0] = context.Edi;
  98         info->client_info.regs [1] = context.Esi;
  99         info->client_info.regs [2] = context.Ebx;
 100         info->client_info.regs [3] = context.Edx;
 101         info->client_info.regs [4] = context.Ecx;
 102         info->client_info.regs [5] = context.Eax;
 103         info->client_info.regs [6] = context.Ebp;
 104         info->client_info.regs [7] = context.Esp;
 105         info->client_info.stopped_ip = (gpointer)context.Eip;
 106         info->client_info.stack_start = (char*)context.Esp - REDZONE_SIZE;
 107 #endif
 108 #endif
 109
 110         /* Notify the JIT */
 111         if (mono_gc_get_gc_callbacks ()->thread_suspend_func)
 112                 mono_gc_get_gc_callbacks ()->thread_suspend_func (info->client_info.runtime_data, NULL, NULL);
 113
 114         return TRUE;
 115 }
 116
 117 void
 118 sgen_wait_for_suspend_ack (int count)
 119 {
 120         /* Win32 suspend/resume is synchronous, so we don't need to wait for anything */
 121 }
 122
 123 int
 124 sgen_thread_handshake (BOOL suspend)
 125 {
 126         SgenThreadInfo *current = mono_thread_info_current ();
 127         int count = 0;
 128
 129         current->client_info.suspend_done = TRUE;
 130         FOREACH_THREAD (info) {
 131                 if (info == current)
 132                         continue;
 133                 info->client_info.suspend_done = FALSE;
 134                 if (info->client_info.gc_disabled)
 135                         continue;
 136                 if (suspend) {
 137                         if (!sgen_suspend_thread (info))
 138                                 continue;
 139                 } else {
 140                         if (!sgen_resume_thread (info))
 141                                 continue;
 142                 }
 143                 ++count;
 144         } FOREACH_THREAD_END
 145         return count;
 146 }
 147
 148 void
 149 sgen_os_init (void)
 150 {
 151 }
 152
 153 int
 154 mono_gc_get_suspend_signal (void)
 155 {
 156         return -1;
 157 }
 158
 159 #endif