mono/metadata/sgen-os-win32.c

   1 #include "config.h"
   2
   3 #if defined(HAVE_SGEN_GC) && defined(HOST_WIN32)
   4
   5 #include <windows.h>
   6
   7 #include "metadata/sgen-gc.h"
   8 #include "metadata/gc-internal.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         info->stopped_ip = (gpointer)context.Eip;
  61         info->stack_start = (char*)context.Esp - REDZONE_SIZE;
  62
  63         info->regs [0] = context.Edi;
  64         info->regs [1] = context.Esi;
  65         info->regs [2] = context.Ebx;
  66         info->regs [3] = context.Edx;
  67         info->regs [4] = context.Ecx;
  68         info->regs [5] = context.Eax;
  69         info->regs [6] = context.Ebp;
  70         info->regs [7] = context.Esp;
  71         info->stopped_regs = &info->regs;
  72
  73         /* Notify the JIT */
  74         if (mono_gc_get_gc_callbacks ()->thread_suspend_func)
  75                 mono_gc_get_gc_callbacks ()->thread_suspend_func (info->runtime_data, NULL);
  76
  77         return TRUE;
  78 }
  79
  80 void
  81 sgen_wait_for_suspend_ack (int count)
  82 {
  83         /* Win32 suspend/resume is synchronous, so we don't need to wait for anything */
  84 }
  85
  86 int
  87 sgen_thread_handshake (BOOL suspend)
  88 {
  89         SgenThreadInfo *info;
  90         SgenThreadInfo *current = mono_thread_info_current ();
  91         int count = 0;
  92
  93         FOREACH_THREAD_SAFE (info) {
  94                 info->joined_stw = suspend;
  95                 if (info == current)
  96                         continue;
  97                 if (info->gc_disabled)
  98                         continue;
  99                 if (suspend) {
 100                         g_assert (!info->doing_handshake);
 101                         info->doing_handshake = TRUE;
 102
 103                         if (!sgen_suspend_thread (info))
 104                                 continue;
 105                 } else {
 106                         g_assert (info->doing_handshake);
 107                         info->doing_handshake = FALSE;
 108
 109                         if (!sgen_resume_thread (info))
 110                                 continue;
 111                 }
 112                 ++count;
 113         } END_FOREACH_THREAD_SAFE
 114         return count;
 115 }
 116
 117 void
 118 sgen_os_init (void)
 119 {
 120 }
 121
 122 int
 123 mono_gc_get_suspend_signal (void)
 124 {
 125         return -1;
 126 }
 127
 128 #endif