Making sure mono_marshal_free is used instead of g_free in mono_string_builder_to_utf8
[mono.git] / mono / utils / mono-threads.h
1 /*
2  * mono-threads.h: Low-level threading
3  *
4  * Author:
5  *      Rodrigo Kumpera (kumpera@gmail.com)
6  *
7  * (C) 2011 Novell, Inc
8  */
9
10 #ifndef __MONO_THREADS_H__
11 #define __MONO_THREADS_H__
12
13 #include <mono/utils/mono-os-semaphore.h>
14 #include <mono/utils/mono-stack-unwinding.h>
15 #include <mono/utils/mono-linked-list-set.h>
16 #include <mono/utils/mono-tls.h>
17 #include <mono/utils/mono-threads-coop.h>
18 #include <mono/utils/mono-threads-api.h>
19 #include <mono/utils/mono-coop-semaphore.h>
20
21 #include <mono/io-layer/io-layer.h>
22
23 #include <glib.h>
24 #include <config.h>
25 #ifdef HOST_WIN32
26
27 #include <windows.h>
28
29 typedef DWORD MonoNativeThreadId;
30 typedef HANDLE MonoNativeThreadHandle; /* unused */
31
32 typedef DWORD mono_native_thread_return_t;
33
34 #define MONO_NATIVE_THREAD_ID_TO_UINT(tid) (tid)
35 #define MONO_UINT_TO_NATIVE_THREAD_ID(tid) ((MonoNativeThreadId)(tid))
36
37 #else
38
39 #include <pthread.h>
40
41 #if defined(__MACH__)
42 #include <mono/utils/mach-support.h>
43
44 typedef thread_port_t MonoNativeThreadHandle;
45
46 #else
47
48 #include <unistd.h>
49
50 typedef pid_t MonoNativeThreadHandle;
51
52 #endif /* defined(__MACH__) */
53
54 typedef pthread_t MonoNativeThreadId;
55
56 typedef void* mono_native_thread_return_t;
57
58 #define MONO_NATIVE_THREAD_ID_TO_UINT(tid) (gsize)(tid)
59 #define MONO_UINT_TO_NATIVE_THREAD_ID(tid) (MonoNativeThreadId)(gsize)(tid)
60
61 #endif /* #ifdef HOST_WIN32 */
62
63 /*
64 THREAD_INFO_TYPE is a way to make the mono-threads module parametric - or sort of.
65 The GC using mono-threads might extend the MonoThreadInfo struct to add its own
66 data, this avoid a pointer indirection on what is on a lot of hot paths.
67
68 But extending MonoThreadInfo has de disavantage that all functions here return type
69 would require a cast, something like the following:
70
71 typedef struct {
72         MonoThreadInfo info;
73         int stuff;
74 }  MyThreadInfo;
75
76 ...
77 ((MyThreadInfo*)mono_thread_info_current ())->stuff = 1;
78
79 While porting sgen to use mono-threads, the number of casts required was too much and
80 code ended up looking horrible. So we use this cute little hack. The idea is that
81 whomever is including this header can set the expected type to be used by functions here
82 and reduce the number of casts drastically.
83
84 */
85 #ifndef THREAD_INFO_TYPE
86 #define THREAD_INFO_TYPE MonoThreadInfo
87 #endif
88
89 /* Mono Threads internal configuration knows*/
90
91 /* Logging - enable them below if you need specific logging for the category you need */
92 #define MOSTLY_ASYNC_SAFE_PRINTF(...) do { \
93         char __buff[1024];      __buff [0] = '\0'; \
94         g_snprintf (__buff, sizeof (__buff), __VA_ARGS__);      \
95         write (1, __buff, strlen (__buff));     \
96 } while (0)
97
98
99 #if 1
100 #define THREADS_DEBUG(...)
101 #else
102 #define THREADS_DEBUG MOSTLY_ASYNC_SAFE_PRINTF
103 #endif
104
105 #if 1
106 #define THREADS_STW_DEBUG(...)
107 #else
108 #define THREADS_STW_DEBUG MOSTLY_ASYNC_SAFE_PRINTF
109 #endif
110
111 #if 1
112 #define THREADS_SUSPEND_DEBUG(...)
113 #else
114 #define THREADS_SUSPEND_DEBUG MOSTLY_ASYNC_SAFE_PRINTF
115 #endif
116
117 #if 1
118 #define THREADS_STATE_MACHINE_DEBUG(...)
119 #else
120 #define THREADS_STATE_MACHINE_DEBUG MOSTLY_ASYNC_SAFE_PRINTF
121 #endif
122
123 #if 1
124 #define THREADS_INTERRUPT_DEBUG(...)
125 #else
126 #define THREADS_INTERRUPT_DEBUG MOSTLY_ASYNC_SAFE_PRINTF
127 #endif
128
129 /* If this is defined, use the signals backed on Mach. Debug only as signals can't be made usable on OSX. */
130 // #define USE_SIGNALS_ON_MACH
131
132 #if defined (_POSIX_VERSION) || defined (__native_client__)
133 #if defined (__MACH__) && !defined (USE_SIGNALS_ON_MACH)
134 #define USE_MACH_BACKEND
135 #else
136 #define USE_POSIX_BACKEND
137 #endif
138 #elif HOST_WIN32
139 #define USE_WINDOWS_BACKEND
140 #else
141 #error "no backend support for current platform"
142 #endif /* defined (_POSIX_VERSION) || defined (__native_client__) */
143
144 enum {
145         STATE_STARTING                          = 0x00,
146         STATE_RUNNING                           = 0x01,
147         STATE_DETACHED                          = 0x02,
148
149         STATE_ASYNC_SUSPENDED                   = 0x03,
150         STATE_SELF_SUSPENDED                    = 0x04,
151         STATE_ASYNC_SUSPEND_REQUESTED   = 0x05,
152         STATE_SELF_SUSPEND_REQUESTED    = 0x06,
153         STATE_BLOCKING                                  = 0x07,
154         STATE_BLOCKING_AND_SUSPENDED    = 0x8,
155
156         STATE_MAX                                               = 0x08,
157
158         THREAD_STATE_MASK                       = 0x00FF,
159         THREAD_SUSPEND_COUNT_MASK       = 0xFF00,
160         THREAD_SUSPEND_COUNT_SHIFT      = 8,
161         THREAD_SUSPEND_COUNT_MAX        = 0xFF,
162
163         SELF_SUSPEND_STATE_INDEX = 0,
164         ASYNC_SUSPEND_STATE_INDEX = 1,
165 };
166
167 typedef struct _MonoThreadInfoInterruptToken MonoThreadInfoInterruptToken;
168
169 typedef struct {
170         MonoLinkedListSetNode node;
171         guint32 small_id; /*Used by hazard pointers */
172         MonoNativeThreadHandle native_handle; /* Valid on mach and android */
173         int thread_state;
174
175         /*Tells if this thread was created by the runtime or not.*/
176         gboolean runtime_thread;
177
178         /* Tells if this thread should be ignored or not by runtime services such as GC and profiling */
179         gboolean tools_thread;
180
181         /* Max stack bounds, all valid addresses must be between [stack_start_limit, stack_end[ */
182         void *stack_start_limit, *stack_end;
183
184         /* suspend machinery, fields protected by suspend_semaphore */
185         MonoSemType suspend_semaphore;
186         int suspend_count;
187
188         MonoSemType resume_semaphore;
189
190         /* only needed by the posix backend */
191 #if defined(USE_POSIX_BACKEND)
192         MonoSemType finish_resume_semaphore;
193         gboolean syscall_break_signal;
194         int signal;
195 #endif
196
197         gboolean suspend_can_continue;
198
199         /* This memory pool is used by coop GC to save stack data roots between GC unsafe regions */
200         GByteArray *stackdata;
201
202         /*In theory, only the posix backend needs this, but having it on mach/win32 simplifies things a lot.*/
203         MonoThreadUnwindState thread_saved_state [2]; //0 is self suspend, 1 is async suspend.
204
205         /*async call machinery, thread MUST be suspended before accessing those fields*/
206         void (*async_target)(void*);
207         void *user_data;
208
209         /*
210         If true, this thread is running a critical region of code and cannot be suspended.
211         A critical session is implicitly started when you call mono_thread_info_safe_suspend_sync
212         and is ended when you call either mono_thread_info_resume or mono_thread_info_finish_suspend.
213         */
214         gboolean inside_critical_region;
215
216         /*
217          * If TRUE, the thread is in async context. Code can use this information to avoid async-unsafe
218          * operations like locking without having to pass an 'async' parameter around.
219          */
220         gboolean is_async_context;
221
222         gboolean create_suspended;
223
224         /* Semaphore used to implement CREATE_SUSPENDED */
225         MonoCoopSem create_suspended_sem;
226
227         /*
228          * Values of TLS variables for this thread.
229          * This can be used to obtain the values of TLS variable for threads
230          * other than the current one.
231          */
232         gpointer tls [TLS_KEY_NUM];
233
234         /* IO layer handle for this thread */
235         /* Set when the thread is started, or in _wapi_thread_duplicate () */
236         HANDLE handle;
237
238         void *jit_data;
239
240         MonoThreadInfoInterruptToken *interrupt_token;
241
242         /* MonoHandleArena for coop handles */
243         gpointer handle_arena;
244 } MonoThreadInfo;
245
246 typedef struct {
247         void* (*thread_register)(THREAD_INFO_TYPE *info, void *baseaddr);
248         /*
249         This callback is called with @info still on the thread list.
250         This call is made while holding the suspend lock, so don't do callbacks.
251         SMR remains functional as its small_id has not been reclaimed.
252         */
253         void (*thread_unregister)(THREAD_INFO_TYPE *info);
254         /*
255         This callback is called right before thread_unregister. This is called
256         without any locks held so it's the place for complicated cleanup.
257
258         The thread must remain operational between this call and thread_unregister.
259         It must be possible to successfully suspend it after thread_unregister completes.
260         */
261         void (*thread_detach)(THREAD_INFO_TYPE *info);
262         void (*thread_attach)(THREAD_INFO_TYPE *info);
263         gboolean (*mono_method_is_critical) (void *method);
264         gboolean (*mono_thread_in_critical_region) (THREAD_INFO_TYPE *info);
265 } MonoThreadInfoCallbacks;
266
267 typedef struct {
268         void (*setup_async_callback) (MonoContext *ctx, void (*async_cb)(void *fun), gpointer user_data);
269         gboolean (*thread_state_init_from_sigctx) (MonoThreadUnwindState *state, void *sigctx);
270         gboolean (*thread_state_init_from_handle) (MonoThreadUnwindState *tctx, MonoThreadInfo *info);
271         void (*thread_state_init) (MonoThreadUnwindState *tctx);
272 } MonoThreadInfoRuntimeCallbacks;
273
274 //Not using 0 and 1 to ensure callbacks are not returning bad data
275 typedef enum {
276         MonoResumeThread = 0x1234,
277         KeepSuspended = 0x4321,
278 } SuspendThreadResult;
279
280 typedef SuspendThreadResult (*MonoSuspendThreadCallback) (THREAD_INFO_TYPE *info, gpointer user_data);
281
282 static inline gboolean
283 mono_threads_filter_tools_threads (THREAD_INFO_TYPE *info)
284 {
285         return !((MonoThreadInfo*)info)->tools_thread;
286 }
287
288 /*
289 Requires the world to be stoped
290 */
291 #define FOREACH_THREAD(thread) \
292         MONO_LLS_FOREACH_FILTERED (mono_thread_info_list_head (), THREAD_INFO_TYPE, thread, mono_threads_filter_tools_threads)
293
294 #define FOREACH_THREAD_END \
295         MONO_LLS_FOREACH_END
296
297 /*
298 Snapshot iteration.
299 */
300 #define FOREACH_THREAD_SAFE(thread) \
301         MONO_LLS_FOREACH_FILTERED_SAFE (mono_thread_info_list_head (), THREAD_INFO_TYPE, thread, mono_threads_filter_tools_threads)
302
303 #define FOREACH_THREAD_SAFE_END \
304         MONO_LLS_FOREACH_SAFE_END
305
306 static inline MonoNativeThreadId
307 mono_thread_info_get_tid (THREAD_INFO_TYPE *info)
308 {
309         return MONO_UINT_TO_NATIVE_THREAD_ID (((MonoThreadInfo*) info)->node.key);
310 }
311
312 static inline void
313 mono_thread_info_set_tid (THREAD_INFO_TYPE *info, MonoNativeThreadId tid)
314 {
315         ((MonoThreadInfo*) info)->node.key = (uintptr_t) MONO_NATIVE_THREAD_ID_TO_UINT (tid);
316 }
317
318 /*
319  * @thread_info_size is sizeof (GcThreadInfo), a struct the GC defines to make it possible to have
320  * a single block with info from both camps. 
321  */
322 void
323 mono_threads_init (MonoThreadInfoCallbacks *callbacks, size_t thread_info_size);
324
325 void
326 mono_threads_runtime_init (MonoThreadInfoRuntimeCallbacks *callbacks);
327
328 MonoThreadInfoRuntimeCallbacks *
329 mono_threads_get_runtime_callbacks (void);
330
331 int
332 mono_thread_info_register_small_id (void);
333
334 THREAD_INFO_TYPE *
335 mono_thread_info_attach (void *baseptr);
336
337 MONO_API void
338 mono_thread_info_detach (void);
339
340 gboolean
341 mono_thread_info_is_exiting (void);
342
343 THREAD_INFO_TYPE *
344 mono_thread_info_current (void);
345
346 THREAD_INFO_TYPE*
347 mono_thread_info_current_unchecked (void);
348
349 int
350 mono_thread_info_get_small_id (void);
351
352 MonoLinkedListSet*
353 mono_thread_info_list_head (void);
354
355 THREAD_INFO_TYPE*
356 mono_thread_info_lookup (MonoNativeThreadId id);
357
358 gboolean
359 mono_thread_info_resume (MonoNativeThreadId tid);
360
361 void
362 mono_thread_info_safe_suspend_and_run (MonoNativeThreadId id, gboolean interrupt_kernel, MonoSuspendThreadCallback callback, gpointer user_data);
363
364 //XXX new API, fix the world
365 void
366 mono_thread_info_begin_self_suspend (void);
367
368 void
369 mono_thread_info_end_self_suspend (void);
370
371 //END of new API
372
373 gboolean
374 mono_thread_info_unified_management_enabled (void);
375
376 void
377 mono_thread_info_setup_async_call (THREAD_INFO_TYPE *info, void (*target_func)(void*), void *user_data);
378
379 void
380 mono_thread_info_suspend_lock (void);
381
382 void
383 mono_thread_info_suspend_unlock (void);
384
385 void
386 mono_thread_info_abort_socket_syscall_for_close (MonoNativeThreadId tid);
387
388 void
389 mono_thread_info_set_is_async_context (gboolean async_context);
390
391 gboolean
392 mono_thread_info_is_async_context (void);
393
394 void
395 mono_thread_info_get_stack_bounds (guint8 **staddr, size_t *stsize);
396
397 gboolean
398 mono_thread_info_yield (void);
399
400 gint
401 mono_thread_info_sleep (guint32 ms, gboolean *alerted);
402
403 gint
404 mono_thread_info_usleep (guint64 us);
405
406 gpointer
407 mono_thread_info_tls_get (THREAD_INFO_TYPE *info, MonoTlsKey key);
408
409 void
410 mono_thread_info_tls_set (THREAD_INFO_TYPE *info, MonoTlsKey key, gpointer value);
411
412 void
413 mono_thread_info_exit (void);
414
415 HANDLE
416 mono_thread_info_open_handle (void);
417
418 void
419 mono_thread_info_install_interrupt (void (*callback) (gpointer data), gpointer data, gboolean *interrupted);
420
421 void
422 mono_thread_info_uninstall_interrupt (gboolean *interrupted);
423
424 MonoThreadInfoInterruptToken*
425 mono_thread_info_prepare_interrupt (THREAD_INFO_TYPE *info);
426
427 void
428 mono_thread_info_finish_interrupt (MonoThreadInfoInterruptToken *token);
429
430 void
431 mono_thread_info_self_interrupt (void);
432
433 void
434 mono_thread_info_clear_self_interrupt (void);
435
436 gboolean
437 mono_thread_info_is_interrupt_state (THREAD_INFO_TYPE *info);
438
439 void
440 mono_thread_info_describe_interrupt_token (THREAD_INFO_TYPE *info, GString *text);
441
442 gboolean
443 mono_thread_info_is_live (THREAD_INFO_TYPE *info);
444
445 HANDLE
446 mono_threads_create_thread (LPTHREAD_START_ROUTINE start, gpointer arg, guint32 stack_size, guint32 creation_flags, MonoNativeThreadId *out_tid);
447
448 int
449 mono_threads_get_max_stack_size (void);
450
451 HANDLE
452 mono_threads_open_thread_handle (HANDLE handle, MonoNativeThreadId tid);
453
454 MONO_API void
455 mono_threads_attach_tools_thread (void);
456
457
458 #if !defined(HOST_WIN32)
459
460 /*Use this instead of pthread_kill */
461 int
462 mono_threads_pthread_kill (THREAD_INFO_TYPE *info, int signum);
463
464 #endif /* !defined(HOST_WIN32) */
465
466 /* Internal API between mono-threads and its backends. */
467
468 /* Backend functions - a backend must implement all of the following */
469 /*
470 This is called very early in the runtime, it cannot access any runtime facilities.
471
472 */
473 void mono_threads_init_platform (void); //ok
474
475 void mono_threads_init_coop (void);
476
477 void mono_threads_init_abort_syscall (void);
478
479 /*
480 This begins async suspend. This function must do the following:
481
482 -Ensure the target will EINTR any syscalls if @interrupt_kernel is true
483 -Call mono_threads_transition_finish_async_suspend as part of its async suspend.
484 -Register the thread for pending suspend with mono_threads_add_to_pending_operation_set if needed.
485
486 If begin suspend fails the thread must be left uninterrupted and resumed.
487 */
488 gboolean mono_threads_core_begin_async_suspend (THREAD_INFO_TYPE *info, gboolean interrupt_kernel);
489
490 /*
491 This verifies the outcome of an async suspend operation.
492
493 Some targets, such as posix, verify suspend results assynchronously. Suspend results must be
494 available (in a non blocking way) after mono_threads_wait_pending_operations completes.
495 */
496 gboolean mono_threads_core_check_suspend_result (THREAD_INFO_TYPE *info);
497
498 /*
499 This begins async resume. This function must do the following:
500
501 - Install an async target if one was requested.
502 - Notify the target to resume.
503 - Register the thread for pending ack with mono_threads_add_to_pending_operation_set if needed.
504 */
505 gboolean mono_threads_core_begin_async_resume (THREAD_INFO_TYPE *info);
506
507 void mono_threads_platform_register (THREAD_INFO_TYPE *info); //ok
508 void mono_threads_platform_free (THREAD_INFO_TYPE *info);
509 void mono_threads_core_abort_syscall (THREAD_INFO_TYPE *info);
510 gboolean mono_threads_core_needs_abort_syscall (void);
511 HANDLE mono_threads_core_create_thread (LPTHREAD_START_ROUTINE start, gpointer arg, guint32 stack_size, guint32 creation_flags, MonoNativeThreadId *out_tid);
512 void mono_threads_core_resume_created (THREAD_INFO_TYPE *info, MonoNativeThreadId tid);
513 void mono_threads_core_get_stack_bounds (guint8 **staddr, size_t *stsize);
514 gboolean mono_threads_core_yield (void);
515 void mono_threads_core_exit (int exit_code);
516 void mono_threads_core_unregister (THREAD_INFO_TYPE *info);
517 HANDLE mono_threads_core_open_handle (void);
518 HANDLE mono_threads_core_open_thread_handle (HANDLE handle, MonoNativeThreadId tid);
519
520 void mono_threads_coop_begin_global_suspend (void);
521 void mono_threads_coop_end_global_suspend (void);
522
523 MONO_API MonoNativeThreadId
524 mono_native_thread_id_get (void);
525
526 gboolean
527 mono_native_thread_id_equals (MonoNativeThreadId id1, MonoNativeThreadId id2);
528
529 gboolean
530 mono_native_thread_create (MonoNativeThreadId *tid, gpointer func, gpointer arg);
531
532 MONO_API void
533 mono_native_thread_set_name (MonoNativeThreadId tid, const char *name);
534
535 /*Mach specific internals */
536 void mono_threads_init_dead_letter (void);
537 void mono_threads_install_dead_letter (void);
538
539 /* mono-threads internal API used by the backends. */
540 /*
541 This tells the suspend initiator that we completed suspend and will now be waiting for resume.
542 */
543 void mono_threads_notify_initiator_of_suspend (THREAD_INFO_TYPE* info);
544 /*
545 This tells the resume initiator that we completed resume duties and will return to runnable state.
546 */
547 void mono_threads_notify_initiator_of_resume (THREAD_INFO_TYPE* info);
548
549 /*
550 This tells the resume initiator that we completed abort duties and will return to previous state.
551 */
552 void mono_threads_notify_initiator_of_abort (THREAD_INFO_TYPE* info);
553
554 /* Thread state machine functions */
555
556 typedef enum {
557         ResumeError,
558         ResumeOk,
559         ResumeInitSelfResume,
560         ResumeInitAsyncResume,
561         ResumeInitBlockingResume,
562 } MonoResumeResult;
563
564 typedef enum {
565         SelfSuspendResumed,
566         SelfSuspendWait,
567         SelfSuspendNotifyAndWait,
568 } MonoSelfSupendResult;
569
570 typedef enum {
571         AsyncSuspendAlreadySuspended,
572         AsyncSuspendWait,
573         AsyncSuspendInitSuspend,
574         AsyncSuspendBlocking,
575 } MonoRequestAsyncSuspendResult;
576
577 typedef enum {
578         DoBlockingContinue, //in blocking mode, continue
579         DoBlockingPollAndRetry, //async suspend raced blocking and won, pool and retry
580 } MonoDoBlockingResult;
581
582 typedef enum {
583         DoneBlockingAborted, //blocking was aborted and not properly restored, poll the state
584         DoneBlockingOk, //exited blocking fine
585         DoneBlockingWait, //thread should end suspended
586 } MonoDoneBlockingResult;
587
588
589 typedef enum {
590         AbortBlockingIgnore, //Ignore
591         AbortBlockingIgnoreAndPoll, //Ignore and poll
592         AbortBlockingOk, //Abort worked
593         AbortBlockingWait, //Abort worked, but should wait for resume
594 } MonoAbortBlockingResult;
595
596
597 void mono_threads_transition_attach (THREAD_INFO_TYPE* info);
598 gboolean mono_threads_transition_detach (THREAD_INFO_TYPE *info);
599 void mono_threads_transition_request_self_suspension (THREAD_INFO_TYPE *info);
600 MonoRequestAsyncSuspendResult mono_threads_transition_request_async_suspension (THREAD_INFO_TYPE *info);
601 MonoSelfSupendResult mono_threads_transition_state_poll (THREAD_INFO_TYPE *info);
602 MonoResumeResult mono_threads_transition_request_resume (THREAD_INFO_TYPE* info);
603 gboolean mono_threads_transition_finish_async_suspend (THREAD_INFO_TYPE* info);
604 MonoDoBlockingResult mono_threads_transition_do_blocking (THREAD_INFO_TYPE* info);
605 MonoDoneBlockingResult mono_threads_transition_done_blocking (THREAD_INFO_TYPE* info);
606 MonoAbortBlockingResult mono_threads_transition_abort_blocking (THREAD_INFO_TYPE* info);
607
608 MonoThreadUnwindState* mono_thread_info_get_suspend_state (THREAD_INFO_TYPE *info);
609
610 gpointer
611 mono_threads_cookie_for_reset_blocking_start (THREAD_INFO_TYPE *info, int reset_blocking_count);
612
613
614 void mono_thread_info_wait_for_resume (THREAD_INFO_TYPE *info);
615 /* Advanced suspend API, used for suspending multiple threads as once. */
616 gboolean mono_thread_info_is_running (THREAD_INFO_TYPE *info);
617 gboolean mono_thread_info_is_live (THREAD_INFO_TYPE *info);
618 int mono_thread_info_suspend_count (THREAD_INFO_TYPE *info);
619 int mono_thread_info_current_state (THREAD_INFO_TYPE *info);
620 const char* mono_thread_state_name (int state);
621
622 gboolean mono_thread_info_in_critical_location (THREAD_INFO_TYPE *info);
623 gboolean mono_thread_info_begin_suspend (THREAD_INFO_TYPE *info);
624 gboolean mono_thread_info_begin_resume (THREAD_INFO_TYPE *info);
625
626 void mono_threads_add_to_pending_operation_set (THREAD_INFO_TYPE* info); //XXX rename to something to reflect the fact that this is used for both suspend and resume
627 gboolean mono_threads_wait_pending_operations (void);
628 void mono_threads_begin_global_suspend (void);
629 void mono_threads_end_global_suspend (void);
630
631 #endif /* __MONO_THREADS_H__ */