* Copyright 1998-2001 Sebastian Wilhelmi; University of Karlsruhe
* Copyright 2001 Hans Breuer
*
+ * SPDX-License-Identifier: LGPL-2.1-or-later
+ *
* This library is free software; you can redistribute it and/or
* modify it under the terms of the GNU Lesser General Public
* License as published by the Free Software Foundation; either
- * version 2 of the License, or (at your option) any later version.
+ * version 2.1 of the License, or (at your option) any later version.
*
* This library is distributed in the hope that it will be useful,
* but WITHOUT ANY WARRANTY; without even the implied warranty of
* Lesser General Public License for more details.
*
* You should have received a copy of the GNU Lesser General Public
- * License along with this library; if not, write to the
- * Free Software Foundation, Inc., 59 Temple Place - Suite 330,
- * Boston, MA 02111-1307, USA.
+ * License along with this library; if not, see <http://www.gnu.org/licenses/>.
*/
/*
#include "config.h"
+#include "glib.h"
+#include "glib-init.h"
#include "gthread.h"
#include "gthreadprivate.h"
+#include "gslice.h"
#include <windows.h>
{
fprintf (stderr, "GLib (gthread-win32.c): Unexpected error from C library during '%s': %s. Aborting.\n",
strerror (status), function);
- abort ();
+ g_abort ();
}
/* Starting with Vista and Windows 2008, we have access to the
- * CONDITION_VARIABLE and SRWLock primatives on Windows, which are
- * pretty reasonable approximations of the primatives specified in
+ * CONDITION_VARIABLE and SRWLock primitives on Windows, which are
+ * pretty reasonable approximations of the primitives specified in
* POSIX 2001 (pthread_cond_t and pthread_mutex_t respectively).
*
* Both of these types are structs containing a single pointer. That
* that only get the kernel involved in cases of contention (similar
* to how futex()-based mutexes work on Linux). The biggest advantage
* of these new types is that they can be statically initialised to
- * zero. This allows us to use them directly and still support:
- *
- * GMutex mutex = G_MUTEX_INIT;
- *
- * and
- *
- * GCond cond = G_COND_INIT;
- *
- * Unfortunately, Windows XP lacks these facilities and GLib still
- * needs to support Windows XP. Our approach here is as follows:
- *
- * - avoid depending on structure declarations at compile-time by
- * declaring our own GMutex and GCond strutures to be
- * ABI-compatible with SRWLock and CONDITION_VARIABLE and using
- * those instead
- *
- * - avoid a hard dependency on the symbols used to manipulate these
- * structures by doing a dynamic lookup of those symbols at
- * runtime
- *
- * - if the symbols are not available, emulate them using other
- * primatives
- *
- * Using this approach also allows us to easily build a GLib that lacks
- * support for Windows XP or to remove this code entirely when XP is no
- * longer supported (end of line is currently April 8, 2014).
+ * zero. That means that they are completely ABI compatible with our
+ * GMutex and GCond APIs.
*/
-typedef struct
-{
- void (* CallThisOnThreadExit) (void); /* fake */
-
- void (* InitializeSRWLock) (gpointer lock);
- void (* DeleteSRWLock) (gpointer lock); /* fake */
- void (* AcquireSRWLockExclusive) (gpointer lock);
- BOOLEAN (* TryAcquireSRWLockExclusive) (gpointer lock);
- void (* ReleaseSRWLockExclusive) (gpointer lock);
-
- void (* InitializeConditionVariable) (gpointer cond);
- void (* DeleteConditionVariable) (gpointer cond); /* fake */
- BOOL (* SleepConditionVariableSRW) (gpointer cond,
- gpointer lock,
- DWORD timeout,
- ULONG flags);
- void (* WakeAllConditionVariable) (gpointer cond);
- void (* WakeConditionVariable) (gpointer cond);
-} GThreadImplVtable;
-
-static GThreadImplVtable g_thread_impl_vtable;
/* {{{1 GMutex */
void
g_mutex_init (GMutex *mutex)
{
- g_thread_impl_vtable.InitializeSRWLock (mutex);
+ InitializeSRWLock ((gpointer) mutex);
}
void
g_mutex_clear (GMutex *mutex)
{
- if (g_thread_impl_vtable.DeleteSRWLock != NULL)
- g_thread_impl_vtable.DeleteSRWLock (mutex);
}
void
g_mutex_lock (GMutex *mutex)
{
- g_thread_impl_vtable.AcquireSRWLockExclusive (mutex);
+ AcquireSRWLockExclusive ((gpointer) mutex);
}
gboolean
g_mutex_trylock (GMutex *mutex)
{
- return g_thread_impl_vtable.TryAcquireSRWLockExclusive (mutex);
+ return TryAcquireSRWLockExclusive ((gpointer) mutex);
}
void
g_mutex_unlock (GMutex *mutex)
{
- g_thread_impl_vtable.ReleaseSRWLockExclusive (mutex);
+ ReleaseSRWLockExclusive ((gpointer) mutex);
}
-/* {{{1 GCond */
-void
-g_cond_init (GCond *cond)
+/* {{{1 GRecMutex */
+
+static CRITICAL_SECTION *
+g_rec_mutex_impl_new (void)
{
- g_thread_impl_vtable.InitializeConditionVariable (cond);
+ CRITICAL_SECTION *cs;
+
+ cs = g_slice_new (CRITICAL_SECTION);
+ InitializeCriticalSection (cs);
+
+ return cs;
+}
+
+static void
+g_rec_mutex_impl_free (CRITICAL_SECTION *cs)
+{
+ DeleteCriticalSection (cs);
+ g_slice_free (CRITICAL_SECTION, cs);
+}
+
+static CRITICAL_SECTION *
+g_rec_mutex_get_impl (GRecMutex *mutex)
+{
+ CRITICAL_SECTION *impl = mutex->p;
+
+ if G_UNLIKELY (mutex->p == NULL)
+ {
+ impl = g_rec_mutex_impl_new ();
+ if (InterlockedCompareExchangePointer (&mutex->p, impl, NULL) != NULL)
+ g_rec_mutex_impl_free (impl);
+ impl = mutex->p;
+ }
+
+ return impl;
}
void
-g_cond_clear (GCond *cond)
+g_rec_mutex_init (GRecMutex *mutex)
{
- if (g_thread_impl_vtable.DeleteConditionVariable)
- g_thread_impl_vtable.DeleteConditionVariable (cond);
+ mutex->p = g_rec_mutex_impl_new ();
}
void
-g_cond_signal (GCond *cond)
+g_rec_mutex_clear (GRecMutex *mutex)
{
- g_thread_impl_vtable.WakeConditionVariable (cond);
+ g_rec_mutex_impl_free (mutex->p);
}
void
-g_cond_broadcast (GCond *cond)
+g_rec_mutex_lock (GRecMutex *mutex)
{
- g_thread_impl_vtable.WakeAllConditionVariable (cond);
+ EnterCriticalSection (g_rec_mutex_get_impl (mutex));
}
void
-g_cond_wait (GCond *cond,
- GMutex *entered_mutex)
+g_rec_mutex_unlock (GRecMutex *mutex)
{
- g_thread_impl_vtable.SleepConditionVariableSRW (cond, entered_mutex, INFINITE, 0);
+ LeaveCriticalSection (mutex->p);
}
gboolean
-g_cond_timedwait (GCond *cond,
- GMutex *entered_mutex,
- gint64 abs_time)
+g_rec_mutex_trylock (GRecMutex *mutex)
{
- gint64 span;
- FILETIME ft;
- gint64 now;
+ return TryEnterCriticalSection (g_rec_mutex_get_impl (mutex));
+}
+
+/* {{{1 GRWLock */
- GetSystemTimeAsFileTime (&ft);
- memmove (&now, &ft, sizeof (FILETIME));
+void
+g_rw_lock_init (GRWLock *lock)
+{
+ InitializeSRWLock ((gpointer) lock);
+}
- now -= G_GINT64_CONSTANT (116444736000000000);
- now /= 10;
+void
+g_rw_lock_clear (GRWLock *lock)
+{
+}
- span = abs_time - now;
+void
+g_rw_lock_writer_lock (GRWLock *lock)
+{
+ AcquireSRWLockExclusive ((gpointer) lock);
+}
- if G_UNLIKELY (span < 0)
- span = 0;
+gboolean
+g_rw_lock_writer_trylock (GRWLock *lock)
+{
+ return TryAcquireSRWLockExclusive ((gpointer) lock);
+}
- if G_UNLIKELY (span > G_GINT64_CONSTANT (1000) * G_MAXINT32)
- span = INFINITE;
+void
+g_rw_lock_writer_unlock (GRWLock *lock)
+{
+ ReleaseSRWLockExclusive ((gpointer) lock);
+}
- return g_thread_impl_vtable.SleepConditionVariableSRW (cond, entered_mutex, span / 1000, 0);
+void
+g_rw_lock_reader_lock (GRWLock *lock)
+{
+ AcquireSRWLockShared ((gpointer) lock);
}
gboolean
-g_cond_timed_wait (GCond *cond,
- GMutex *entered_mutex,
- GTimeVal *abs_time)
+g_rw_lock_reader_trylock (GRWLock *lock)
{
- if (abs_time)
- {
- gint64 micros;
+ return TryAcquireSRWLockShared ((gpointer) lock);
+}
- micros = abs_time->tv_sec;
- micros *= 1000000;
- micros += abs_time->tv_usec;
+void
+g_rw_lock_reader_unlock (GRWLock *lock)
+{
+ ReleaseSRWLockShared ((gpointer) lock);
+}
- return g_cond_timedwait (cond, entered_mutex, micros);
- }
- else
+/* {{{1 GCond */
+void
+g_cond_init (GCond *cond)
+{
+ InitializeConditionVariable ((gpointer) cond);
+}
+
+void
+g_cond_clear (GCond *cond)
+{
+}
+
+void
+g_cond_signal (GCond *cond)
+{
+ WakeConditionVariable ((gpointer) cond);
+}
+
+void
+g_cond_broadcast (GCond *cond)
+{
+ WakeAllConditionVariable ((gpointer) cond);
+}
+
+void
+g_cond_wait (GCond *cond,
+ GMutex *entered_mutex)
+{
+ SleepConditionVariableSRW ((gpointer) cond, (gpointer) entered_mutex, INFINITE, 0);
+}
+
+gboolean
+g_cond_wait_until (GCond *cond,
+ GMutex *entered_mutex,
+ gint64 end_time)
+{
+ gint64 span, start_time;
+ DWORD span_millis;
+ gboolean signalled;
+
+ start_time = g_get_monotonic_time ();
+ do
{
- g_cond_wait (cond, entered_mutex);
- return TRUE;
+ span = end_time - start_time;
+
+ if G_UNLIKELY (span < 0)
+ span_millis = 0;
+ else if G_UNLIKELY (span > G_GINT64_CONSTANT (1000) * (DWORD) INFINITE)
+ span_millis = INFINITE;
+ else
+ /* Round up so we don't time out too early */
+ span_millis = (span + 1000 - 1) / 1000;
+
+ /* We never want to wait infinitely */
+ if (span_millis >= INFINITE)
+ span_millis = INFINITE - 1;
+
+ signalled = SleepConditionVariableSRW ((gpointer) cond, (gpointer) entered_mutex, span_millis, 0);
+ if (signalled)
+ break;
+
+ /* In case we didn't wait long enough after a timeout, wait again for the
+ * remaining time */
+ start_time = g_get_monotonic_time ();
}
+ while (start_time < end_time);
+
+ return signalled;
}
/* {{{1 GPrivate */
GPrivateDestructor *next;
};
-static GPrivateDestructor * volatile g_private_destructors;
+static GPrivateDestructor *g_private_destructors; /* (atomic) prepend-only */
+static CRITICAL_SECTION g_private_lock;
-GPrivate *
-(g_private_new) (GDestroyNotify notify)
+static DWORD
+g_private_get_impl (GPrivate *key)
{
- GPrivate *key;
+ DWORD impl = (DWORD) GPOINTER_TO_UINT(key->p);
- key = malloc (sizeof (GPrivate));
- if G_UNLIKELY (key == NULL)
- g_thread_abort (errno, "malloc");
- g_private_init (key, notify);
+ if G_UNLIKELY (impl == 0)
+ {
+ EnterCriticalSection (&g_private_lock);
+ impl = (UINT_PTR) key->p;
+ if (impl == 0)
+ {
+ GPrivateDestructor *destructor;
- return key;
-}
+ impl = TlsAlloc ();
-void
-g_private_init (GPrivate *key,
- GDestroyNotify notify)
-{
- GPrivateDestructor *destructor;
+ if G_UNLIKELY (impl == 0)
+ {
+ /* Ignore TLS index 0 temporarily (as 0 is the indicator that we
+ * haven't allocated TLS yet) and alloc again;
+ * See https://gitlab.gnome.org/GNOME/glib/-/issues/2058 */
+ DWORD impl2 = TlsAlloc ();
+ TlsFree (impl);
+ impl = impl2;
+ }
- key->index = TlsAlloc ();
+ if (impl == TLS_OUT_OF_INDEXES || impl == 0)
+ g_thread_abort (0, "TlsAlloc");
- destructor = malloc (sizeof (GPrivateDestructor));
- if G_UNLIKELY (destructor == NULL)
- g_thread_abort (errno, "malloc");
- destructor->index = key->index;
- destructor->notify = notify;
+ if (key->notify != NULL)
+ {
+ destructor = malloc (sizeof (GPrivateDestructor));
+ if G_UNLIKELY (destructor == NULL)
+ g_thread_abort (errno, "malloc");
+ destructor->index = impl;
+ destructor->notify = key->notify;
+ destructor->next = g_atomic_pointer_get (&g_private_destructors);
+
+ /* We need to do an atomic store due to the unlocked
+ * access to the destructor list from the thread exit
+ * function.
+ *
+ * It can double as a sanity check...
+ */
+ if (!g_atomic_pointer_compare_and_exchange (&g_private_destructors,
+ destructor->next,
+ destructor))
+ g_thread_abort (0, "g_private_get_impl(1)");
+ }
- do
- destructor->next = g_private_destructors;
- while (InterlockedCompareExchangePointer (&g_private_destructors, destructor->next, destructor) != destructor->next);
+ /* Ditto, due to the unlocked access on the fast path */
+ if (!g_atomic_pointer_compare_and_exchange (&key->p, NULL, impl))
+ g_thread_abort (0, "g_private_get_impl(2)");
+ }
+ LeaveCriticalSection (&g_private_lock);
+ }
+
+ return impl;
}
gpointer
-(g_private_get) (GPrivate *key)
+g_private_get (GPrivate *key)
{
- return TlsGetValue (key->index);
+ return TlsGetValue (g_private_get_impl (key));
}
void
-(g_private_set) (GPrivate *key,
+g_private_set (GPrivate *key,
gpointer value)
{
- TlsSetValue (key->index, value);
+ TlsSetValue (g_private_get_impl (key), value);
}
-/* {{{1 GThread */
+void
+g_private_replace (GPrivate *key,
+ gpointer value)
+{
+ DWORD impl = g_private_get_impl (key);
+ gpointer old;
-#include "glib.h"
-#include "gthreadprivate.h"
+ old = TlsGetValue (impl);
+ TlsSetValue (impl, value);
+ if (old && key->notify)
+ key->notify (old);
+}
+
+/* {{{1 GThread */
#define win32_check_for_error(what) G_STMT_START{ \
if (!(what)) \
#define G_MUTEX_SIZE (sizeof (gpointer))
-static DWORD g_thread_self_tls;
-static DWORD g_private_tls;
-
typedef BOOL (__stdcall *GTryEnterCriticalSectionFunc) (CRITICAL_SECTION *);
-typedef struct _GThreadData GThreadData;
-struct _GThreadData
+typedef struct
{
- GThreadFunc func;
- gpointer data;
- HANDLE thread;
- gboolean joinable;
-};
+ GRealThread thread;
+ GThreadFunc proxy;
+ HANDLE handle;
+} GThreadWin32;
-static void
-g_thread_set_priority_win32_impl (gpointer thread, GThreadPriority priority)
-{
- GThreadData *target = *(GThreadData **)thread;
- gint native_prio;
-
- switch (priority)
- {
- case G_THREAD_PRIORITY_LOW:
- native_prio = THREAD_PRIORITY_BELOW_NORMAL;
- break;
-
- case G_THREAD_PRIORITY_NORMAL:
- native_prio = THREAD_PRIORITY_NORMAL;
- break;
-
- case G_THREAD_PRIORITY_HIGH:
- native_prio = THREAD_PRIORITY_ABOVE_NORMAL;
- break;
-
- case G_THREAD_PRIORITY_URGENT:
- native_prio = THREAD_PRIORITY_HIGHEST;
- break;
-
- default:
- g_return_if_reached ();
- }
-
- win32_check_for_error (SetThreadPriority (target->thread, native_prio));
-}
-
-static void
-g_thread_self_win32_impl (gpointer thread)
+void
+g_system_thread_free (GRealThread *thread)
{
- GThreadData *self = TlsGetValue (g_thread_self_tls);
+ GThreadWin32 *wt = (GThreadWin32 *) thread;
- if (!self)
- {
- /* This should only happen for the main thread! */
- HANDLE handle = GetCurrentThread ();
- HANDLE process = GetCurrentProcess ();
- self = g_new (GThreadData, 1);
- win32_check_for_error (DuplicateHandle (process, handle, process,
- &self->thread, 0, FALSE,
- DUPLICATE_SAME_ACCESS));
- win32_check_for_error (TlsSetValue (g_thread_self_tls, self));
- self->func = NULL;
- self->data = NULL;
- self->joinable = FALSE;
- }
-
- *(GThreadData **)thread = self;
+ win32_check_for_error (CloseHandle (wt->handle));
+ g_slice_free (GThreadWin32, wt);
}
-static void
-g_thread_exit_win32_impl (void)
-{
- GThreadData *self = TlsGetValue (g_thread_self_tls);
- gboolean dtors_called;
-
- do
- {
- GPrivateDestructor *dtor;
-
- /* We go by the POSIX book on this one.
- *
- * If we call a destructor then there is a chance that some new
- * TLS variables got set by code called in that destructor.
- *
- * Loop until nothing is left.
- */
- dtors_called = FALSE;
-
- for (dtor = g_private_destructors; dtor; dtor = dtor->next)
- {
- gpointer value;
-
- value = TlsGetValue (dtor->index);
- if (value != NULL && dtor->notify != NULL)
- {
- /* POSIX says to clear this before the call */
- TlsSetValue (dtor->index, NULL);
- dtor->notify (value);
- dtors_called = TRUE;
- }
- }
- }
- while (dtors_called);
-
- if (self)
- {
- if (!self->joinable)
- {
- win32_check_for_error (CloseHandle (self->thread));
- g_free (self);
- }
- win32_check_for_error (TlsSetValue (g_thread_self_tls, NULL));
- }
-
- if (g_thread_impl_vtable.CallThisOnThreadExit)
- g_thread_impl_vtable.CallThisOnThreadExit ();
+void
+g_system_thread_exit (void)
+{
+ /* In static compilation, DllMain doesn't exist and so DLL_THREAD_DETACH
+ * case is never called and thread destroy notifications are not triggered.
+ * To ensure that notifications are correctly triggered in static
+ * compilation mode, we call directly the "detach" function here right
+ * before terminating the thread.
+ * As all win32 threads initialized through the glib API are run through
+ * the same proxy function g_thread_win32_proxy() which calls systematically
+ * g_system_thread_exit() when finishing, we obtain the same behavior as
+ * with dynamic compilation.
+ *
+ * WARNING: unfortunately this mechanism cannot work with threads created
+ * directly from the Windows API using CreateThread() or _beginthread/ex().
+ * It only works with threads created by using the glib API with
+ * g_system_thread_new(). If users need absolutely to use a thread NOT
+ * created with glib API under Windows and in static compilation mode, they
+ * should not use glib functions within their thread or they may encounter
+ * memory leaks when the thread finishes.
+ */
+#ifdef GLIB_STATIC_COMPILATION
+ g_thread_win32_thread_detach ();
+#endif
_endthreadex (0);
}
static guint __stdcall
-g_thread_proxy (gpointer data)
+g_thread_win32_proxy (gpointer data)
{
- GThreadData *self = (GThreadData*) data;
-
- win32_check_for_error (TlsSetValue (g_thread_self_tls, self));
+ GThreadWin32 *self = data;
- self->func (self->data);
+ self->proxy (self);
- g_thread_exit_win32_impl ();
+ g_system_thread_exit ();
g_assert_not_reached ();
return 0;
}
-static void
-g_thread_create_win32_impl (GThreadFunc func,
- gpointer data,
- gulong stack_size,
- gboolean joinable,
- gboolean bound,
- GThreadPriority priority,
- gpointer thread,
- GError **error)
-{
- guint ignore;
- GThreadData *retval;
-
- g_return_if_fail (func);
- g_return_if_fail (priority >= G_THREAD_PRIORITY_LOW);
- g_return_if_fail (priority <= G_THREAD_PRIORITY_URGENT);
-
- retval = g_new(GThreadData, 1);
- retval->func = func;
- retval->data = data;
-
- retval->joinable = joinable;
-
- retval->thread = (HANDLE) _beginthreadex (NULL, stack_size, g_thread_proxy,
- retval, 0, &ignore);
-
- if (retval->thread == NULL)
- {
- gchar *win_error = g_win32_error_message (GetLastError ());
- g_set_error (error, G_THREAD_ERROR, G_THREAD_ERROR_AGAIN,
- "Error creating thread: %s", win_error);
- g_free (retval);
- g_free (win_error);
- return;
- }
-
- *(GThreadData **)thread = retval;
-
- g_thread_set_priority_win32_impl (thread, priority);
-}
-
-static void
-g_thread_yield_win32_impl (void)
-{
- Sleep(0);
-}
-
-static void
-g_thread_join_win32_impl (gpointer thread)
+gboolean
+g_system_thread_get_scheduler_settings (GThreadSchedulerSettings *scheduler_settings)
{
- GThreadData *target = *(GThreadData **)thread;
-
- g_return_if_fail (target->joinable);
-
- win32_check_for_error (WAIT_FAILED !=
- WaitForSingleObject (target->thread, INFINITE));
+ HANDLE current_thread = GetCurrentThread ();
+ scheduler_settings->thread_prio = GetThreadPriority (current_thread);
- win32_check_for_error (CloseHandle (target->thread));
- g_free (target);
+ return TRUE;
}
-/* {{{1 SRWLock and CONDITION_VARIABLE emulation (for Windows XP) */
-
-static CRITICAL_SECTION g_thread_xp_lock;
-static DWORD g_thread_xp_waiter_tls;
-
-/* {{{2 GThreadWaiter utility class for CONDITION_VARIABLE emulation */
-typedef struct _GThreadXpWaiter GThreadXpWaiter;
-struct _GThreadXpWaiter
+GRealThread *
+g_system_thread_new (GThreadFunc proxy,
+ gulong stack_size,
+ const GThreadSchedulerSettings *scheduler_settings,
+ const char *name,
+ GThreadFunc func,
+ gpointer data,
+ GError **error)
{
- HANDLE event;
- volatile GThreadXpWaiter *next;
-};
-
-static GThreadXpWaiter *
-g_thread_xp_waiter_get (void)
-{
- GThreadXpWaiter *waiter;
-
- waiter = TlsGetValue (g_thread_xp_waiter_tls);
-
- if G_UNLIKELY (waiter == NULL)
+ GThreadWin32 *thread;
+ GRealThread *base_thread;
+ guint ignore;
+ const gchar *message = NULL;
+ int thread_prio;
+
+ thread = g_slice_new0 (GThreadWin32);
+ thread->proxy = proxy;
+ thread->handle = (HANDLE) NULL;
+ base_thread = (GRealThread*)thread;
+ base_thread->ref_count = 2;
+ base_thread->ours = TRUE;
+ base_thread->thread.joinable = TRUE;
+ base_thread->thread.func = func;
+ base_thread->thread.data = data;
+ base_thread->name = g_strdup (name);
+
+ thread->handle = (HANDLE) _beginthreadex (NULL, stack_size, g_thread_win32_proxy, thread,
+ CREATE_SUSPENDED, &ignore);
+
+ if (thread->handle == NULL)
{
- waiter = malloc (sizeof (GThreadXpWaiter));
- if (waiter == NULL)
- g_thread_abort (GetLastError (), "malloc");
- waiter->event = CreateEvent (0, FALSE, FALSE, NULL);
- if (waiter->event == NULL)
- g_thread_abort (GetLastError (), "CreateEvent");
-
- TlsSetValue (g_thread_xp_waiter_tls, waiter);
+ message = "Error creating thread";
+ goto error;
}
- return waiter;
-}
-
-static void
-g_thread_xp_CallThisOnThreadExit (void)
-{
- GThreadXpWaiter *waiter;
-
- waiter = TlsGetValue (g_thread_xp_waiter_tls);
+ /* For thread priority inheritance we need to manually set the thread
+ * priority of the new thread to the priority of the current thread. We
+ * also have to start the thread suspended and resume it after actually
+ * setting the priority here.
+ *
+ * On Windows, by default all new threads are created with NORMAL thread
+ * priority.
+ */
- if (waiter != NULL)
+ if (scheduler_settings)
{
- TlsSetValue (g_thread_xp_waiter_tls, NULL);
- CloseHandle (waiter->event);
- free (waiter);
+ thread_prio = scheduler_settings->thread_prio;
}
-}
-
-/* {{{2 SRWLock emulation */
-typedef struct
-{
- CRITICAL_SECTION critical_section;
-} GThreadSRWLock;
-
-static void
-g_thread_xp_InitializeSRWLock (gpointer mutex)
-{
- *(GThreadSRWLock * volatile *) mutex = NULL;
-}
-
-static void
-g_thread_xp_DeleteSRWLock (gpointer mutex)
-{
- GThreadSRWLock *lock = *(GThreadSRWLock * volatile *) mutex;
-
- if (lock)
+ else
{
- DeleteCriticalSection (&lock->critical_section);
- free (lock);
+ HANDLE current_thread = GetCurrentThread ();
+ thread_prio = GetThreadPriority (current_thread);
}
-}
-
-static GThreadSRWLock *
-g_thread_xp_get_srwlock (GThreadSRWLock * volatile *lock)
-{
- GThreadSRWLock *result;
-
- /* It looks like we're missing some barriers here, but this code only
- * ever runs on Windows XP, which in turn only ever runs on hardware
- * with a relatively rigid memory model. The 'volatile' will take
- * care of the compiler.
- */
- result = *lock;
- if G_UNLIKELY (result == NULL)
+ if (thread_prio == THREAD_PRIORITY_ERROR_RETURN)
{
- EnterCriticalSection (&g_thread_xp_lock);
-
- result = malloc (sizeof (GThreadSRWLock));
-
- if (result == NULL)
- g_thread_abort (errno, "malloc");
-
- InitializeCriticalSection (&result->critical_section);
- *lock = result;
+ message = "Error getting current thread priority";
+ goto error;
+ }
- LeaveCriticalSection (&g_thread_xp_lock);
+ if (SetThreadPriority (thread->handle, thread_prio) == 0)
+ {
+ message = "Error setting new thread priority";
+ goto error;
}
- return result;
-}
+ if (ResumeThread (thread->handle) == (DWORD) -1)
+ {
+ message = "Error resuming new thread";
+ goto error;
+ }
-static void
-g_thread_xp_AcquireSRWLockExclusive (gpointer mutex)
-{
- GThreadSRWLock *lock = g_thread_xp_get_srwlock (mutex);
+ return (GRealThread *) thread;
- EnterCriticalSection (&lock->critical_section);
+error:
+ {
+ gchar *win_error = g_win32_error_message (GetLastError ());
+ g_set_error (error, G_THREAD_ERROR, G_THREAD_ERROR_AGAIN,
+ "%s: %s", message, win_error);
+ g_free (win_error);
+ if (thread->handle)
+ CloseHandle (thread->handle);
+ g_slice_free (GThreadWin32, thread);
+ return NULL;
+ }
}
-static BOOLEAN
-g_thread_xp_TryAcquireSRWLockExclusive (gpointer mutex)
+void
+g_thread_yield (void)
{
- GThreadSRWLock *lock = g_thread_xp_get_srwlock (mutex);
-
- return TryEnterCriticalSection (&lock->critical_section);
+ Sleep(0);
}
-static void
-g_thread_xp_ReleaseSRWLockExclusive (gpointer mutex)
+void
+g_system_thread_wait (GRealThread *thread)
{
- GThreadSRWLock *lock = *(GThreadSRWLock * volatile *) mutex;
+ GThreadWin32 *wt = (GThreadWin32 *) thread;
- /* We need this until we fix some weird parts of GLib that try to
- * unlock freshly-allocated mutexes.
- */
- if (lock != NULL)
- LeaveCriticalSection (&lock->critical_section);
+ win32_check_for_error (WAIT_FAILED != WaitForSingleObject (wt->handle, INFINITE));
}
-/* {{{2 CONDITION_VARIABLE emulation */
-typedef struct
-{
- volatile GThreadXpWaiter *first;
- volatile GThreadXpWaiter **last_ptr;
-} GThreadXpCONDITION_VARIABLE;
+#define EXCEPTION_SET_THREAD_NAME ((DWORD) 0x406D1388)
-static void
-g_thread_xp_InitializeConditionVariable (gpointer cond)
-{
- *(GThreadXpCONDITION_VARIABLE * volatile *) cond = NULL;
-}
+#ifndef _MSC_VER
+static void *SetThreadName_VEH_handle = NULL;
-static void
-g_thread_xp_DeleteConditionVariable (gpointer cond)
+static LONG __stdcall
+SetThreadName_VEH (PEXCEPTION_POINTERS ExceptionInfo)
{
- GThreadXpCONDITION_VARIABLE *cv = *(GThreadXpCONDITION_VARIABLE * volatile *) cond;
+ if (ExceptionInfo->ExceptionRecord != NULL &&
+ ExceptionInfo->ExceptionRecord->ExceptionCode == EXCEPTION_SET_THREAD_NAME)
+ return EXCEPTION_CONTINUE_EXECUTION;
- if (cv)
- free (cv);
+ return EXCEPTION_CONTINUE_SEARCH;
}
+#endif
-static GThreadXpCONDITION_VARIABLE *
-g_thread_xp_get_condition_variable (GThreadXpCONDITION_VARIABLE * volatile *cond)
+typedef struct _THREADNAME_INFO
{
- GThreadXpCONDITION_VARIABLE *result;
+ DWORD dwType; /* must be 0x1000 */
+ LPCSTR szName; /* pointer to name (in user addr space) */
+ DWORD dwThreadID; /* thread ID (-1=caller thread) */
+ DWORD dwFlags; /* reserved for future use, must be zero */
+} THREADNAME_INFO;
- /* It looks like we're missing some barriers here, but this code only
- * ever runs on Windows XP, which in turn only ever runs on hardware
- * with a relatively rigid memory model. The 'volatile' will take
- * care of the compiler.
- */
- result = *cond;
+static void
+SetThreadName (DWORD dwThreadID,
+ LPCSTR szThreadName)
+{
+ THREADNAME_INFO info;
+ DWORD infosize;
+
+ info.dwType = 0x1000;
+ info.szName = szThreadName;
+ info.dwThreadID = dwThreadID;
+ info.dwFlags = 0;
+
+ infosize = sizeof (info) / sizeof (DWORD);
+
+#ifdef _MSC_VER
+ __try
+ {
+ RaiseException (EXCEPTION_SET_THREAD_NAME, 0, infosize,
+ (const ULONG_PTR *) &info);
+ }
+ __except (EXCEPTION_EXECUTE_HANDLER)
+ {
+ }
+#else
+ /* Without a debugger we *must* have an exception handler,
+ * otherwise raising an exception will crash the process.
+ */
+ if ((!IsDebuggerPresent ()) && (SetThreadName_VEH_handle == NULL))
+ return;
+
+ RaiseException (EXCEPTION_SET_THREAD_NAME, 0, infosize, (const ULONG_PTR *) &info);
+#endif
+}
+
+typedef HRESULT (WINAPI *pSetThreadDescription) (HANDLE hThread,
+ PCWSTR lpThreadDescription);
+static pSetThreadDescription SetThreadDescriptionFunc = NULL;
+static HMODULE kernel32_module = NULL;
- if G_UNLIKELY (result == NULL)
+static gboolean
+g_thread_win32_load_library (void)
+{
+ /* FIXME: Add support for UWP app */
+#if !defined(G_WINAPI_ONLY_APP)
+ static gsize _init_once = 0;
+ if (g_once_init_enter (&_init_once))
{
- result = malloc (sizeof (GThreadXpCONDITION_VARIABLE));
-
- if (result == NULL)
- g_thread_abort (errno, "malloc");
-
- result->first = NULL;
- result->last_ptr = &result->first;
-
- if (InterlockedCompareExchangePointer (cond, result, NULL) != NULL)
+ kernel32_module = LoadLibraryW (L"kernel32.dll");
+ if (kernel32_module)
{
- free (result);
- result = *cond;
+ SetThreadDescriptionFunc =
+ (pSetThreadDescription) GetProcAddress (kernel32_module,
+ "SetThreadDescription");
+ if (!SetThreadDescriptionFunc)
+ FreeLibrary (kernel32_module);
}
+ g_once_init_leave (&_init_once, 1);
}
+#endif
- return result;
+ return !!SetThreadDescriptionFunc;
}
-static BOOL
-g_thread_xp_SleepConditionVariableSRW (gpointer cond,
- gpointer mutex,
- DWORD timeout,
- ULONG flags)
-{
- GThreadXpCONDITION_VARIABLE *cv = g_thread_xp_get_condition_variable (cond);
- GThreadXpWaiter *waiter = g_thread_xp_waiter_get ();
- DWORD status;
-
- waiter->next = NULL;
-
- EnterCriticalSection (&g_thread_xp_lock);
- *cv->last_ptr = waiter;
- cv->last_ptr = &waiter->next;
- LeaveCriticalSection (&g_thread_xp_lock);
-
- g_mutex_unlock (mutex);
- status = WaitForSingleObject (waiter->event, timeout);
-
- if (status != WAIT_TIMEOUT && status != WAIT_OBJECT_0)
- g_thread_abort (GetLastError (), "WaitForSingleObject");
-
- g_mutex_lock (mutex);
-
- return status == WAIT_OBJECT_0;
-}
-
-static void
-g_thread_xp_WakeConditionVariable (gpointer cond)
+static gboolean
+g_thread_win32_set_thread_desc (const gchar *name)
{
- GThreadXpCONDITION_VARIABLE *cv = g_thread_xp_get_condition_variable (cond);
- volatile GThreadXpWaiter *waiter;
-
- EnterCriticalSection (&g_thread_xp_lock);
- waiter = cv->first;
- if (waiter != NULL)
- {
- cv->first = waiter->next;
- if (cv->first == NULL)
- cv->last_ptr = &cv->first;
- }
- LeaveCriticalSection (&g_thread_xp_lock);
+ HRESULT hr;
+ wchar_t *namew;
- if (waiter != NULL)
- SetEvent (waiter->event);
-}
-
-static void
-g_thread_xp_WakeAllConditionVariable (gpointer cond)
-{
- GThreadXpCONDITION_VARIABLE *cv = g_thread_xp_get_condition_variable (cond);
- volatile GThreadXpWaiter *waiter;
+ if (!g_thread_win32_load_library () || !name)
+ return FALSE;
- EnterCriticalSection (&g_thread_xp_lock);
- waiter = cv->first;
- cv->first = NULL;
- cv->last_ptr = &cv->first;
- LeaveCriticalSection (&g_thread_xp_lock);
+ namew = g_utf8_to_utf16 (name, -1, NULL, NULL, NULL);
+ if (!namew)
+ return FALSE;
- while (waiter != NULL)
- {
- volatile GThreadXpWaiter *next;
+ hr = SetThreadDescriptionFunc (GetCurrentThread (), namew);
- next = waiter->next;
- SetEvent (waiter->event);
- waiter = next;
- }
+ g_free (namew);
+ return SUCCEEDED (hr);
}
-/* {{{2 XP Setup */
-static void
-g_thread_xp_init (void)
+void
+g_system_thread_set_name (const gchar *name)
{
- static const GThreadImplVtable g_thread_xp_impl_vtable = {
- g_thread_xp_CallThisOnThreadExit,
- g_thread_xp_InitializeSRWLock,
- g_thread_xp_DeleteSRWLock,
- g_thread_xp_AcquireSRWLockExclusive,
- g_thread_xp_TryAcquireSRWLockExclusive,
- g_thread_xp_ReleaseSRWLockExclusive,
- g_thread_xp_InitializeConditionVariable,
- g_thread_xp_DeleteConditionVariable,
- g_thread_xp_SleepConditionVariableSRW,
- g_thread_xp_WakeAllConditionVariable,
- g_thread_xp_WakeConditionVariable
- };
-
- InitializeCriticalSection (&g_thread_xp_lock);
- g_thread_xp_waiter_tls = TlsAlloc ();
-
- g_thread_impl_vtable = g_thread_xp_impl_vtable;
+ /* Prefer SetThreadDescription over exception based way if available,
+ * since thread description set by SetThreadDescription will be preserved
+ * in dump file */
+ if (!g_thread_win32_set_thread_desc (name))
+ SetThreadName ((DWORD) -1, name);
}
/* {{{1 Epilogue */
-GThreadFunctions g_thread_functions_for_glib_use =
-{
- g_mutex_new, /* mutex */
- g_mutex_lock,
- g_mutex_trylock,
- g_mutex_unlock,
- g_mutex_free,
- g_cond_new, /* condition */
- g_cond_signal,
- g_cond_broadcast,
- g_cond_wait,
- g_cond_timed_wait,
- g_cond_free,
- g_private_new, /* private thread data */
- g_private_get,
- g_private_set,
- g_thread_create_win32_impl, /* thread */
- g_thread_yield_win32_impl,
- g_thread_join_win32_impl,
- g_thread_exit_win32_impl,
- g_thread_set_priority_win32_impl,
- g_thread_self_win32_impl,
- NULL /* no equal function necessary */
-};
-
void
-_g_thread_impl_init (void)
+g_thread_win32_init (void)
{
- static gboolean beenhere = FALSE;
-
- if (beenhere)
- return;
-
- beenhere = TRUE;
+ InitializeCriticalSection (&g_private_lock);
- printf ("thread init\n");
- win32_check_for_error (TLS_OUT_OF_INDEXES !=
- (g_thread_self_tls = TlsAlloc ()));
- win32_check_for_error (TLS_OUT_OF_INDEXES !=
- (g_private_tls = TlsAlloc ()));
+#ifndef _MSC_VER
+ SetThreadName_VEH_handle = AddVectoredExceptionHandler (1, &SetThreadName_VEH);
+ if (SetThreadName_VEH_handle == NULL)
+ {
+ /* This is bad, but what can we do? */
+ }
+#endif
}
-static gboolean
-g_thread_lookup_native_funcs (void)
+void
+g_thread_win32_thread_detach (void)
{
- GThreadImplVtable native_vtable = { 0, };
- HMODULE kernel32;
-
- kernel32 = GetModuleHandle ("KERNEL32.DLL");
-
- if (kernel32 == NULL)
- return FALSE;
+ gboolean dtors_called;
-#define GET_FUNC(name) if ((native_vtable.name = (void *) GetProcAddress (kernel32, #name)) == NULL) return FALSE
- GET_FUNC(InitializeSRWLock);
- GET_FUNC(AcquireSRWLockExclusive);
- GET_FUNC(TryAcquireSRWLockExclusive);
- GET_FUNC(ReleaseSRWLockExclusive);
+ do
+ {
+ GPrivateDestructor *dtor;
- GET_FUNC(InitializeConditionVariable);
- GET_FUNC(SleepConditionVariableSRW);
- GET_FUNC(WakeAllConditionVariable);
- GET_FUNC(WakeConditionVariable);
-#undef GET_FUNC
+ /* We go by the POSIX book on this one.
+ *
+ * If we call a destructor then there is a chance that some new
+ * TLS variables got set by code called in that destructor.
+ *
+ * Loop until nothing is left.
+ */
+ dtors_called = FALSE;
- g_thread_impl_vtable = native_vtable;
+ for (dtor = g_atomic_pointer_get (&g_private_destructors); dtor; dtor = dtor->next)
+ {
+ gpointer value;
- return TRUE;
+ value = TlsGetValue (dtor->index);
+ if (value != NULL && dtor->notify != NULL)
+ {
+ /* POSIX says to clear this before the call */
+ TlsSetValue (dtor->index, NULL);
+ dtor->notify (value);
+ dtors_called = TRUE;
+ }
+ }
+ }
+ while (dtors_called);
}
-G_GNUC_INTERNAL void
-g_thread_DllMain (void)
+void
+g_thread_win32_process_detach (void)
{
- /* XXX This is broken right now for some unknown reason...
-
- if (g_thread_lookup_native_funcs ())
- fprintf (stderr, "(debug) GThread using native mode\n");
- else
-*/
+#ifndef _MSC_VER
+ if (SetThreadName_VEH_handle != NULL)
{
- fprintf (stderr, "(debug) GThread using Windows XP mode\n");
- g_thread_xp_init ();
+ RemoveVectoredExceptionHandler (SetThreadName_VEH_handle);
+ SetThreadName_VEH_handle = NULL;
}
+#endif
}
/* vim:set foldmethod=marker: */
-