mono/metadata/sgen-os-win32.c

   1 #include "config.h"
   2
   3 #if defined(HAVE_SGEN_GC) && defined(HOST_WIN32)
   4
   5 #include "io-layer/io-layer.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
  72         /* Notify the JIT */
  73         if (mono_gc_get_gc_callbacks ()->thread_suspend_func)
  74                 mono_gc_get_gc_callbacks ()->thread_suspend_func (info->runtime_data, NULL, NULL);
  75
  76         return TRUE;
  77 }
  78
  79 void
  80 sgen_wait_for_suspend_ack (int count)
  81 {
  82         /* Win32 suspend/resume is synchronous, so we don't need to wait for anything */
  83 }
  84
  85 int
  86 sgen_thread_handshake (BOOL suspend)
  87 {
  88         SgenThreadInfo *info;
  89         SgenThreadInfo *current = mono_thread_info_current ();
  90         int count = 0;
  91
  92         FOREACH_THREAD_SAFE (info) {
  93                 if (info->joined_stw == suspend)
  94                         continue;
  95                 info->joined_stw = suspend;
  96                 if (info == current)
  97                         continue;
  98                 if (info->gc_disabled)
  99                         continue;
 100                 if (suspend) {
 101                         g_assert (!info->doing_handshake);
 102                         info->doing_handshake = TRUE;
 103
 104                         if (!sgen_suspend_thread (info))
 105                                 continue;
 106                 } else {
 107                         g_assert (info->doing_handshake);
 108                         info->doing_handshake = FALSE;
 109
 110                         if (!sgen_resume_thread (info))
 111                                 continue;
 112                 }
 113                 ++count;
 114         } END_FOREACH_THREAD_SAFE
 115         return count;
 116 }
 117
 118 void
 119 sgen_os_init (void)
 120 {
 121 }
 122
 123 int
 124 mono_gc_get_suspend_signal (void)
 125 {
 126         return -1;
 127 }
 128
 129 #endif