1 /* GLIB - Library of useful routines for C programming
2 * Copyright (C) 1995-1997 Peter Mattis, Spencer Kimball and Josh MacDonald
4 * gthread.c: solaris thread system implementation
5 * Copyright 1998-2001 Sebastian Wilhelmi; University of Karlsruhe
6 * Copyright 2001 Hans Breuer
8 * This library is free software; you can redistribute it and/or
9 * modify it under the terms of the GNU Lesser General Public
10 * License as published by the Free Software Foundation; either
11 * version 2 of the License, or (at your option) any later version.
13 * This library is distributed in the hope that it will be useful,
14 * but WITHOUT ANY WARRANTY; without even the implied warranty of
15 * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
16 * Lesser General Public License for more details.
18 * You should have received a copy of the GNU Lesser General Public
19 * License along with this library; if not, write to the
20 * Free Software Foundation, Inc., 59 Temple Place - Suite 330,
21 * Boston, MA 02111-1307, USA.
25 * Modified by the GLib Team and others 1997-2000. See the AUTHORS
26 * file for a list of people on the GLib Team. See the ChangeLog
27 * files for a list of changes. These files are distributed with
28 * GLib at ftp://ftp.gtk.org/pub/gtk/.
31 /* The GMutex and GCond implementations in this file are some of the
32 * lowest-level code in GLib. All other parts of GLib (messages,
33 * memory, slices, etc) assume that they can freely use these facilities
34 * without risking recursion.
36 * As such, these functions are NOT permitted to call any other part of
39 * The thread manipulation functions (create, exit, join, etc.) have
40 * more freedom -- they can do as they please.
46 #include "gthreadprivate.h"
56 g_thread_abort (gint status,
57 const gchar *function)
59 fprintf (stderr, "GLib (gthread-win32.c): Unexpected error from C library during '%s': %s. Aborting.\n",
60 strerror (status), function);
64 /* Starting with Vista and Windows 2008, we have access to the
65 * CONDITION_VARIABLE and SRWLock primatives on Windows, which are
66 * pretty reasonable approximations of the primatives specified in
67 * POSIX 2001 (pthread_cond_t and pthread_mutex_t respectively).
69 * Both of these types are structs containing a single pointer. That
70 * pointer is used as an atomic bitfield to support user-space mutexes
71 * that only get the kernel involved in cases of contention (similar
72 * to how futex()-based mutexes work on Linux). The biggest advantage
73 * of these new types is that they can be statically initialised to
74 * zero. That means that they are completely ABI compatible with our
75 * GMutex and GCond APIs.
77 * Unfortunately, Windows XP lacks these facilities and GLib still
78 * needs to support Windows XP. Our approach here is as follows:
80 * - avoid depending on structure declarations at compile-time by
81 * declaring our own GMutex and GCond strutures to be
82 * ABI-compatible with SRWLock and CONDITION_VARIABLE and using
85 * - avoid a hard dependency on the symbols used to manipulate these
86 * structures by doing a dynamic lookup of those symbols at
89 * - if the symbols are not available, emulate them using other
92 * Using this approach also allows us to easily build a GLib that lacks
93 * support for Windows XP or to remove this code entirely when XP is no
94 * longer supported (end of line is currently April 8, 2014).
98 void (__stdcall * CallThisOnThreadExit) (void); /* fake */
100 void (__stdcall * InitializeSRWLock) (gpointer lock);
101 void (__stdcall * DeleteSRWLock) (gpointer lock); /* fake */
102 void (__stdcall * AcquireSRWLockExclusive) (gpointer lock);
103 BOOLEAN (__stdcall * TryAcquireSRWLockExclusive) (gpointer lock);
104 void (__stdcall * ReleaseSRWLockExclusive) (gpointer lock);
105 void (__stdcall * AcquireSRWLockShared) (gpointer lock);
106 BOOLEAN (__stdcall * TryAcquireSRWLockShared) (gpointer lock);
107 void (__stdcall * ReleaseSRWLockShared) (gpointer lock);
109 void (__stdcall * InitializeConditionVariable) (gpointer cond);
110 void (__stdcall * DeleteConditionVariable) (gpointer cond); /* fake */
111 BOOL (__stdcall * SleepConditionVariableSRW) (gpointer cond,
115 void (__stdcall * WakeAllConditionVariable) (gpointer cond);
116 void (__stdcall * WakeConditionVariable) (gpointer cond);
119 static GThreadImplVtable g_thread_impl_vtable;
123 g_mutex_init (GMutex *mutex)
125 g_thread_impl_vtable.InitializeSRWLock (mutex);
129 g_mutex_clear (GMutex *mutex)
131 if (g_thread_impl_vtable.DeleteSRWLock != NULL)
132 g_thread_impl_vtable.DeleteSRWLock (mutex);
136 g_mutex_lock (GMutex *mutex)
138 g_thread_impl_vtable.AcquireSRWLockExclusive (mutex);
142 g_mutex_trylock (GMutex *mutex)
144 return g_thread_impl_vtable.TryAcquireSRWLockExclusive (mutex);
148 g_mutex_unlock (GMutex *mutex)
150 g_thread_impl_vtable.ReleaseSRWLockExclusive (mutex);
155 static CRITICAL_SECTION *
156 g_rec_mutex_impl_new (void)
158 CRITICAL_SECTION *cs;
160 cs = g_slice_new (CRITICAL_SECTION);
161 InitializeCriticalSection (cs);
167 g_rec_mutex_impl_free (CRITICAL_SECTION *cs)
169 DeleteCriticalSection (cs);
170 g_slice_free (CRITICAL_SECTION, cs);
173 static CRITICAL_SECTION *
174 g_rec_mutex_get_impl (GRecMutex *mutex)
176 CRITICAL_SECTION *impl = mutex->p;
178 if G_UNLIKELY (mutex->p == NULL)
180 impl = g_rec_mutex_impl_new ();
181 if (InterlockedCompareExchangePointer (&mutex->p, impl, NULL) != NULL)
182 g_rec_mutex_impl_free (impl);
190 g_rec_mutex_init (GRecMutex *mutex)
192 mutex->p = g_rec_mutex_impl_new ();
196 g_rec_mutex_clear (GRecMutex *mutex)
198 g_rec_mutex_impl_free (mutex->p);
202 g_rec_mutex_lock (GRecMutex *mutex)
204 EnterCriticalSection (g_rec_mutex_get_impl (mutex));
208 g_rec_mutex_unlock (GRecMutex *mutex)
210 LeaveCriticalSection (mutex->p);
214 g_rec_mutex_trylock (GRecMutex *mutex)
216 return TryEnterCriticalSection (g_rec_mutex_get_impl (mutex));
222 g_rw_lock_init (GRWLock *lock)
224 g_thread_impl_vtable.InitializeSRWLock (lock);
228 g_rw_lock_clear (GRWLock *lock)
230 if (g_thread_impl_vtable.DeleteSRWLock != NULL)
231 g_thread_impl_vtable.DeleteSRWLock (lock);
235 g_rw_lock_writer_lock (GRWLock *lock)
237 g_thread_impl_vtable.AcquireSRWLockExclusive (lock);
241 g_rw_lock_writer_trylock (GRWLock *lock)
243 return g_thread_impl_vtable.TryAcquireSRWLockExclusive (lock);
247 g_rw_lock_writer_unlock (GRWLock *lock)
249 g_thread_impl_vtable.ReleaseSRWLockExclusive (lock);
253 g_rw_lock_reader_lock (GRWLock *lock)
255 g_thread_impl_vtable.AcquireSRWLockShared (lock);
259 g_rw_lock_reader_trylock (GRWLock *lock)
261 return g_thread_impl_vtable.TryAcquireSRWLockShared (lock);
265 g_rw_lock_reader_unlock (GRWLock *lock)
267 g_thread_impl_vtable.ReleaseSRWLockShared (lock);
272 g_cond_init (GCond *cond)
274 g_thread_impl_vtable.InitializeConditionVariable (cond);
278 g_cond_clear (GCond *cond)
280 if (g_thread_impl_vtable.DeleteConditionVariable)
281 g_thread_impl_vtable.DeleteConditionVariable (cond);
285 g_cond_signal (GCond *cond)
287 g_thread_impl_vtable.WakeConditionVariable (cond);
291 g_cond_broadcast (GCond *cond)
293 g_thread_impl_vtable.WakeAllConditionVariable (cond);
297 g_cond_wait (GCond *cond,
298 GMutex *entered_mutex)
300 g_thread_impl_vtable.SleepConditionVariableSRW (cond, entered_mutex, INFINITE, 0);
304 g_cond_timedwait (GCond *cond,
305 GMutex *entered_mutex,
312 GetSystemTimeAsFileTime (&ft);
313 memmove (&now, &ft, sizeof (FILETIME));
315 now -= G_GINT64_CONSTANT (116444736000000000);
318 span = abs_time - now;
320 if G_UNLIKELY (span < 0)
323 if G_UNLIKELY (span > G_GINT64_CONSTANT (1000) * G_MAXINT32)
326 return g_thread_impl_vtable.SleepConditionVariableSRW (cond, entered_mutex, span / 1000, 0);
330 g_cond_timed_wait (GCond *cond,
331 GMutex *entered_mutex,
338 micros = abs_time->tv_sec;
340 micros += abs_time->tv_usec;
342 return g_cond_timedwait (cond, entered_mutex, micros);
346 g_cond_wait (cond, entered_mutex);
353 typedef struct _GPrivateDestructor GPrivateDestructor;
355 struct _GPrivateDestructor
358 GDestroyNotify notify;
359 GPrivateDestructor *next;
362 static GPrivateDestructor * volatile g_private_destructors;
363 static CRITICAL_SECTION g_private_lock;
366 g_private_get_impl (GPrivate *key)
368 DWORD impl = (DWORD) key->p;
370 if G_UNLIKELY (impl == 0)
372 EnterCriticalSection (&g_private_lock);
373 impl = (DWORD) key->p;
376 GPrivateDestructor *destructor;
380 if (impl == TLS_OUT_OF_INDEXES)
381 g_thread_abort (0, "TlsAlloc");
383 if (key->notify != NULL)
385 destructor = malloc (sizeof (GPrivateDestructor));
386 if G_UNLIKELY (destructor == NULL)
387 g_thread_abort (errno, "malloc");
388 destructor->index = impl;
389 destructor->notify = key->notify;
390 destructor->next = g_private_destructors;
392 /* We need to do an atomic store due to the unlocked
393 * access to the destructor list from the thread exit
396 * It can double as a sanity check...
398 if (InterlockedCompareExchangePointer (&g_private_destructors, destructor,
399 destructor->next) != destructor->next)
400 g_thread_abort (0, "g_private_get_impl(1)");
403 /* Ditto, due to the unlocked access on the fast path */
404 if (InterlockedCompareExchangePointer (&key->p, impl, NULL) != NULL)
405 g_thread_abort (0, "g_private_get_impl(2)");
407 LeaveCriticalSection (&g_private_lock);
414 g_private_get (GPrivate *key)
416 return TlsGetValue (g_private_get_impl (key));
420 g_private_set (GPrivate *key,
423 TlsSetValue (g_private_get_impl (key), value);
427 g_private_replace (GPrivate *key,
430 DWORD impl = g_private_get_impl (key);
433 old = TlsGetValue (impl);
434 if (old && key->notify)
436 TlsSetValue (impl, value);
442 #include "gthreadprivate.h"
444 #define win32_check_for_error(what) G_STMT_START{ \
446 g_error ("file %s: line %d (%s): error %s during %s", \
447 __FILE__, __LINE__, G_STRFUNC, \
448 g_win32_error_message (GetLastError ()), #what); \
451 #define G_MUTEX_SIZE (sizeof (gpointer))
453 static DWORD g_thread_self_tls;
455 typedef BOOL (__stdcall *GTryEnterCriticalSectionFunc) (CRITICAL_SECTION *);
457 typedef struct _GThreadData GThreadData;
467 g_system_thread_self (gpointer thread)
469 GThreadData *self = TlsGetValue (g_thread_self_tls);
473 /* This should only happen for the main thread! */
474 HANDLE handle = GetCurrentThread ();
475 HANDLE process = GetCurrentProcess ();
476 self = g_new (GThreadData, 1);
477 win32_check_for_error (DuplicateHandle (process, handle, process,
478 &self->thread, 0, FALSE,
479 DUPLICATE_SAME_ACCESS));
480 win32_check_for_error (TlsSetValue (g_thread_self_tls, self));
483 self->joinable = FALSE;
486 *(GThreadData **)thread = self;
490 g_system_thread_exit (void)
495 static guint __stdcall
496 g_thread_proxy (gpointer data)
498 GThreadData *self = (GThreadData*) data;
500 win32_check_for_error (TlsSetValue (g_thread_self_tls, self));
502 self->func (self->data);
504 g_system_thread_exit ();
506 g_assert_not_reached ();
512 g_system_thread_create (GThreadFunc func,
522 g_return_if_fail (func);
524 retval = g_new(GThreadData, 1);
528 retval->joinable = joinable;
530 retval->thread = (HANDLE) _beginthreadex (NULL, stack_size, g_thread_proxy,
533 if (retval->thread == NULL)
535 gchar *win_error = g_win32_error_message (GetLastError ());
536 g_set_error (error, G_THREAD_ERROR, G_THREAD_ERROR_AGAIN,
537 "Error creating thread: %s", win_error);
543 *(GThreadData **)thread = retval;
547 g_thread_yield (void)
553 g_system_thread_join (gpointer thread)
555 GThreadData *target = *(GThreadData **)thread;
557 g_return_if_fail (target->joinable);
559 win32_check_for_error (WAIT_FAILED !=
560 WaitForSingleObject (target->thread, INFINITE));
562 win32_check_for_error (CloseHandle (target->thread));
567 g_system_thread_equal (gpointer thread1,
570 return ((GSystemThread*)thread1)->dummy_pointer == ((GSystemThread*)thread2)->dummy_pointer;
574 g_system_thread_set_name (const gchar *name)
576 /* FIXME: implement */
579 /* {{{1 SRWLock and CONDITION_VARIABLE emulation (for Windows XP) */
581 static CRITICAL_SECTION g_thread_xp_lock;
582 static DWORD g_thread_xp_waiter_tls;
584 /* {{{2 GThreadWaiter utility class for CONDITION_VARIABLE emulation */
585 typedef struct _GThreadXpWaiter GThreadXpWaiter;
586 struct _GThreadXpWaiter
589 volatile GThreadXpWaiter *next;
592 static GThreadXpWaiter *
593 g_thread_xp_waiter_get (void)
595 GThreadXpWaiter *waiter;
597 waiter = TlsGetValue (g_thread_xp_waiter_tls);
599 if G_UNLIKELY (waiter == NULL)
601 waiter = malloc (sizeof (GThreadXpWaiter));
603 g_thread_abort (GetLastError (), "malloc");
604 waiter->event = CreateEvent (0, FALSE, FALSE, NULL);
605 if (waiter->event == NULL)
606 g_thread_abort (GetLastError (), "CreateEvent");
608 TlsSetValue (g_thread_xp_waiter_tls, waiter);
614 static void __stdcall
615 g_thread_xp_CallThisOnThreadExit (void)
617 GThreadXpWaiter *waiter;
619 waiter = TlsGetValue (g_thread_xp_waiter_tls);
623 TlsSetValue (g_thread_xp_waiter_tls, NULL);
624 CloseHandle (waiter->event);
629 /* {{{2 SRWLock emulation */
632 CRITICAL_SECTION writer_lock;
633 gboolean ever_shared; /* protected by writer_lock */
634 gboolean writer_locked; /* protected by writer_lock */
636 /* below is only ever touched if ever_shared becomes true */
637 CRITICAL_SECTION atomicity;
638 GThreadXpWaiter *queued_writer; /* protected by atomicity lock */
639 gint num_readers; /* protected by atomicity lock */
642 static void __stdcall
643 g_thread_xp_InitializeSRWLock (gpointer mutex)
645 *(GThreadSRWLock * volatile *) mutex = NULL;
648 static void __stdcall
649 g_thread_xp_DeleteSRWLock (gpointer mutex)
651 GThreadSRWLock *lock = *(GThreadSRWLock * volatile *) mutex;
655 if (lock->ever_shared)
656 DeleteCriticalSection (&lock->atomicity);
658 DeleteCriticalSection (&lock->writer_lock);
663 static GThreadSRWLock * __stdcall
664 g_thread_xp_get_srwlock (GThreadSRWLock * volatile *lock)
666 GThreadSRWLock *result;
668 /* It looks like we're missing some barriers here, but this code only
669 * ever runs on Windows XP, which in turn only ever runs on hardware
670 * with a relatively rigid memory model. The 'volatile' will take
671 * care of the compiler.
675 if G_UNLIKELY (result == NULL)
677 EnterCriticalSection (&g_thread_xp_lock);
679 result = malloc (sizeof (GThreadSRWLock));
682 g_thread_abort (errno, "malloc");
684 InitializeCriticalSection (&result->writer_lock);
685 result->writer_locked = FALSE;
686 result->ever_shared = FALSE;
689 LeaveCriticalSection (&g_thread_xp_lock);
695 static void __stdcall
696 g_thread_xp_AcquireSRWLockExclusive (gpointer mutex)
698 GThreadSRWLock *lock = g_thread_xp_get_srwlock (mutex);
700 EnterCriticalSection (&lock->writer_lock);
702 /* CRITICAL_SECTION is reentrant, but SRWLock is not.
703 * Detect the deadlock that would occur on later Windows version.
705 g_assert (!lock->writer_locked);
706 lock->writer_locked = TRUE;
708 if (lock->ever_shared)
710 GThreadXpWaiter *waiter = NULL;
712 EnterCriticalSection (&lock->atomicity);
713 if (lock->num_readers > 0)
714 lock->queued_writer = waiter = g_thread_xp_waiter_get ();
715 LeaveCriticalSection (&lock->atomicity);
718 WaitForSingleObject (waiter->event, INFINITE);
720 lock->queued_writer = NULL;
724 static BOOLEAN __stdcall
725 g_thread_xp_TryAcquireSRWLockExclusive (gpointer mutex)
727 GThreadSRWLock *lock = g_thread_xp_get_srwlock (mutex);
729 if (!TryEnterCriticalSection (&lock->writer_lock))
732 /* CRITICAL_SECTION is reentrant, but SRWLock is not.
733 * Ensure that this properly returns FALSE (as SRWLock would).
735 if G_UNLIKELY (lock->writer_locked)
737 LeaveCriticalSection (&lock->writer_lock);
741 lock->writer_locked = TRUE;
743 if (lock->ever_shared)
747 EnterCriticalSection (&lock->atomicity);
748 available = lock->num_readers == 0;
749 LeaveCriticalSection (&lock->atomicity);
753 LeaveCriticalSection (&lock->writer_lock);
761 static void __stdcall
762 g_thread_xp_ReleaseSRWLockExclusive (gpointer mutex)
764 GThreadSRWLock *lock = *(GThreadSRWLock * volatile *) mutex;
766 lock->writer_locked = FALSE;
768 /* We need this until we fix some weird parts of GLib that try to
769 * unlock freshly-allocated mutexes.
772 LeaveCriticalSection (&lock->writer_lock);
776 g_thread_xp_srwlock_become_reader (GThreadSRWLock *lock)
778 if G_UNLIKELY (!lock->ever_shared)
780 InitializeCriticalSection (&lock->atomicity);
781 lock->queued_writer = NULL;
782 lock->num_readers = 0;
784 lock->ever_shared = TRUE;
787 EnterCriticalSection (&lock->atomicity);
789 LeaveCriticalSection (&lock->atomicity);
792 static void __stdcall
793 g_thread_xp_AcquireSRWLockShared (gpointer mutex)
795 GThreadSRWLock *lock = g_thread_xp_get_srwlock (mutex);
797 EnterCriticalSection (&lock->writer_lock);
799 /* See g_thread_xp_AcquireSRWLockExclusive */
800 g_assert (!lock->writer_locked);
802 g_thread_xp_srwlock_become_reader (lock);
804 LeaveCriticalSection (&lock->writer_lock);
807 static BOOLEAN __stdcall
808 g_thread_xp_TryAcquireSRWLockShared (gpointer mutex)
810 GThreadSRWLock *lock = g_thread_xp_get_srwlock (mutex);
812 if (!TryEnterCriticalSection (&lock->writer_lock))
815 /* See g_thread_xp_AcquireSRWLockExclusive */
816 if G_UNLIKELY (lock->writer_locked)
818 LeaveCriticalSection (&lock->writer_lock);
822 g_thread_xp_srwlock_become_reader (lock);
824 LeaveCriticalSection (&lock->writer_lock);
829 static void __stdcall
830 g_thread_xp_ReleaseSRWLockShared (gpointer mutex)
832 GThreadSRWLock *lock = g_thread_xp_get_srwlock (mutex);
834 EnterCriticalSection (&lock->atomicity);
838 if (lock->num_readers == 0 && lock->queued_writer)
839 SetEvent (lock->queued_writer->event);
841 LeaveCriticalSection (&lock->atomicity);
844 /* {{{2 CONDITION_VARIABLE emulation */
847 volatile GThreadXpWaiter *first;
848 volatile GThreadXpWaiter **last_ptr;
849 } GThreadXpCONDITION_VARIABLE;
851 static void __stdcall
852 g_thread_xp_InitializeConditionVariable (gpointer cond)
854 *(GThreadXpCONDITION_VARIABLE * volatile *) cond = NULL;
857 static void __stdcall
858 g_thread_xp_DeleteConditionVariable (gpointer cond)
860 GThreadXpCONDITION_VARIABLE *cv = *(GThreadXpCONDITION_VARIABLE * volatile *) cond;
866 static GThreadXpCONDITION_VARIABLE * __stdcall
867 g_thread_xp_get_condition_variable (GThreadXpCONDITION_VARIABLE * volatile *cond)
869 GThreadXpCONDITION_VARIABLE *result;
871 /* It looks like we're missing some barriers here, but this code only
872 * ever runs on Windows XP, which in turn only ever runs on hardware
873 * with a relatively rigid memory model. The 'volatile' will take
874 * care of the compiler.
878 if G_UNLIKELY (result == NULL)
880 result = malloc (sizeof (GThreadXpCONDITION_VARIABLE));
883 g_thread_abort (errno, "malloc");
885 result->first = NULL;
886 result->last_ptr = &result->first;
888 if (InterlockedCompareExchangePointer (cond, result, NULL) != NULL)
898 static BOOL __stdcall
899 g_thread_xp_SleepConditionVariableSRW (gpointer cond,
904 GThreadXpCONDITION_VARIABLE *cv = g_thread_xp_get_condition_variable (cond);
905 GThreadXpWaiter *waiter = g_thread_xp_waiter_get ();
910 EnterCriticalSection (&g_thread_xp_lock);
911 *cv->last_ptr = waiter;
912 cv->last_ptr = &waiter->next;
913 LeaveCriticalSection (&g_thread_xp_lock);
915 g_mutex_unlock (mutex);
916 status = WaitForSingleObject (waiter->event, timeout);
918 if (status != WAIT_TIMEOUT && status != WAIT_OBJECT_0)
919 g_thread_abort (GetLastError (), "WaitForSingleObject");
921 g_mutex_lock (mutex);
923 return status == WAIT_OBJECT_0;
926 static void __stdcall
927 g_thread_xp_WakeConditionVariable (gpointer cond)
929 GThreadXpCONDITION_VARIABLE *cv = g_thread_xp_get_condition_variable (cond);
930 volatile GThreadXpWaiter *waiter;
932 EnterCriticalSection (&g_thread_xp_lock);
936 cv->first = waiter->next;
937 if (cv->first == NULL)
938 cv->last_ptr = &cv->first;
940 LeaveCriticalSection (&g_thread_xp_lock);
943 SetEvent (waiter->event);
946 static void __stdcall
947 g_thread_xp_WakeAllConditionVariable (gpointer cond)
949 GThreadXpCONDITION_VARIABLE *cv = g_thread_xp_get_condition_variable (cond);
950 volatile GThreadXpWaiter *waiter;
952 EnterCriticalSection (&g_thread_xp_lock);
955 cv->last_ptr = &cv->first;
956 LeaveCriticalSection (&g_thread_xp_lock);
958 while (waiter != NULL)
960 volatile GThreadXpWaiter *next;
963 SetEvent (waiter->event);
970 g_thread_xp_init (void)
972 static const GThreadImplVtable g_thread_xp_impl_vtable = {
973 g_thread_xp_CallThisOnThreadExit,
974 g_thread_xp_InitializeSRWLock,
975 g_thread_xp_DeleteSRWLock,
976 g_thread_xp_AcquireSRWLockExclusive,
977 g_thread_xp_TryAcquireSRWLockExclusive,
978 g_thread_xp_ReleaseSRWLockExclusive,
979 g_thread_xp_AcquireSRWLockShared,
980 g_thread_xp_TryAcquireSRWLockShared,
981 g_thread_xp_ReleaseSRWLockShared,
982 g_thread_xp_InitializeConditionVariable,
983 g_thread_xp_DeleteConditionVariable,
984 g_thread_xp_SleepConditionVariableSRW,
985 g_thread_xp_WakeAllConditionVariable,
986 g_thread_xp_WakeConditionVariable
989 InitializeCriticalSection (&g_thread_xp_lock);
990 g_thread_xp_waiter_tls = TlsAlloc ();
992 g_thread_impl_vtable = g_thread_xp_impl_vtable;
998 g_thread_lookup_native_funcs (void)
1000 GThreadImplVtable native_vtable = { 0, };
1003 kernel32 = GetModuleHandle ("KERNEL32.DLL");
1005 if (kernel32 == NULL)
1008 #define GET_FUNC(name) if ((native_vtable.name = (void *) GetProcAddress (kernel32, #name)) == NULL) return FALSE
1009 GET_FUNC(InitializeSRWLock);
1010 GET_FUNC(AcquireSRWLockExclusive);
1011 GET_FUNC(TryAcquireSRWLockExclusive);
1012 GET_FUNC(ReleaseSRWLockExclusive);
1013 GET_FUNC(AcquireSRWLockShared);
1014 GET_FUNC(TryAcquireSRWLockShared);
1015 GET_FUNC(ReleaseSRWLockShared);
1017 GET_FUNC(InitializeConditionVariable);
1018 GET_FUNC(SleepConditionVariableSRW);
1019 GET_FUNC(WakeAllConditionVariable);
1020 GET_FUNC(WakeConditionVariable);
1023 g_thread_impl_vtable = native_vtable;
1028 G_GNUC_INTERNAL void
1029 g_thread_win32_init (void)
1031 if (g_thread_lookup_native_funcs ())
1032 fprintf (stderr, "(debug) GThread using native mode\n");
1035 fprintf (stderr, "(debug) GThread using Windows XP mode\n");
1036 g_thread_xp_init ();
1039 win32_check_for_error (TLS_OUT_OF_INDEXES != (g_thread_self_tls = TlsAlloc ()));
1040 InitializeCriticalSection (&g_private_lock);
1043 G_GNUC_INTERNAL void
1044 g_thread_win32_thread_detach (void)
1046 GThreadData *self = TlsGetValue (g_thread_self_tls);
1047 gboolean dtors_called;
1051 GPrivateDestructor *dtor;
1053 /* We go by the POSIX book on this one.
1055 * If we call a destructor then there is a chance that some new
1056 * TLS variables got set by code called in that destructor.
1058 * Loop until nothing is left.
1060 dtors_called = FALSE;
1062 for (dtor = g_private_destructors; dtor; dtor = dtor->next)
1066 value = TlsGetValue (dtor->index);
1067 if (value != NULL && dtor->notify != NULL)
1069 /* POSIX says to clear this before the call */
1070 TlsSetValue (dtor->index, NULL);
1071 dtor->notify (value);
1072 dtors_called = TRUE;
1076 while (dtors_called);
1080 if (!self->joinable)
1082 win32_check_for_error (CloseHandle (self->thread));
1085 win32_check_for_error (TlsSetValue (g_thread_self_tls, NULL));
1088 if (g_thread_impl_vtable.CallThisOnThreadExit)
1089 g_thread_impl_vtable.CallThisOnThreadExit ();
1092 /* vim:set foldmethod=marker: */