1 files changed, 192 insertions, 0 deletions
diff --git a/libs/pthreads/src/pthread_setname_np.c b/libs/pthreads/src/pthread_setname_np.c
new file mode 100644
index 0000000000..cca2bff733
--- /dev/null
+++ b/libs/pthreads/src/pthread_setname_np.c
@@ -0,0 +1,192 @@
+/*
+ * pthread_setname_np.c
+ *
+ * --------------------------------------------------------------------------
+ *
+ *      Pthreads4w - POSIX Threads Library for Win32
+ *      Copyright(C) 1998 John E. Bossom
+ *      Copyright(C) 1999-2018, Pthreads4w contributors
+ *
+ *      Homepage: https://sourceforge.net/projects/pthreads4w/
+ *
+ *      The current list of contributors is contained
+ *      in the file CONTRIBUTORS included with the source
+ *      code distribution. The list can also be seen at the
+ *      following World Wide Web location:
+ *      https://sourceforge.net/p/pthreads4w/wiki/Contributors/
+ *
+ * This file is part of Pthreads4w.
+ *
+ *    Pthreads4w is free software: you can redistribute it and/or modify
+ *    it under the terms of the GNU General Public License as published by
+ *    the Free Software Foundation, either version 3 of the License, or
+ *    (at your option) any later version.
+ *
+ *    Pthreads4w is distributed in the hope that it will be useful,
+ *    but WITHOUT ANY WARRANTY; without even the implied warranty of
+ *    MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+ *    GNU General Public License for more details.
+ *
+ *    You should have received a copy of the GNU General Public License
+ *    along with Pthreads4w.  If not, see <http://www.gnu.org/licenses/>. *
+ */
+
+#ifdef HAVE_CONFIG_H
+# include <config.h>
+#endif
+
+#include <stdio.h>
+#include <string.h>
+#include "pthread.h"
+#include "implement.h"
+
+#if defined(_MSC_VER)
+#define MS_VC_EXCEPTION 0x406D1388
+
+#pragma pack(push,8)
+typedef struct tagTHREADNAME_INFO
+{
+  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;
+#pragma pack(pop)
+
+void
+SetThreadName( DWORD dwThreadID, char* threadName)
+{
+  THREADNAME_INFO info;
+  info.dwType = 0x1000;
+  info.szName = threadName;
+  info.dwThreadID = dwThreadID;
+  info.dwFlags = 0;
+
+  __try
+  {
+    RaiseException( MS_VC_EXCEPTION, 0, sizeof(info)/sizeof(ULONG_PTR), (ULONG_PTR*)&info );
+  }
+  __except(EXCEPTION_EXECUTE_HANDLER)
+  {
+  }
+}
+#endif
+
+#if defined(PTW32_COMPATIBILITY_BSD) || defined(PTW32_COMPATIBILITY_TRU64)
+int
+pthread_setname_np(pthread_t thr, const char *name, void *arg)
+{
+  ptw32_mcs_local_node_t threadLock;
+  int len;
+  int result;
+  char tmpbuf[PTHREAD_MAX_NAMELEN_NP];
+  char * newname;
+  char * oldname;
+  ptw32_thread_t * tp;
+#if defined(_MSC_VER)
+  DWORD Win32ThreadID;
+#endif
+
+  /*
+   * Validate the thread id. This method works for Pthreads4w because
+   * pthread_kill and pthread_t are designed to accommodate it, but the
+   * method is not portable.
+   */
+  result = pthread_kill (thr, 0);
+  if (0 != result)
+    {
+      return result;
+    }
+
+  /*
+   * According to the MSDN description for snprintf()
+   * where count is the second parameter:
+   * If len < count, then len characters are stored in buffer, a null-terminator is appended, and len is returned.
+   * If len = count, then len characters are stored in buffer, no null-terminator is appended, and len is returned.
+   * If len > count, then count characters are stored in buffer, no null-terminator is appended, and a negative value is returned.
+   *
+   * This is different to the POSIX behaviour which returns the number of characters that would have been written in all cases.
+   */
+  len = snprintf(tmpbuf, PTHREAD_MAX_NAMELEN_NP-1, name, arg);
+  tmpbuf[PTHREAD_MAX_NAMELEN_NP-1] = '\0';
+  if (len < 0)
+    {
+      return EINVAL;
+    }
+
+  newname = _strdup(tmpbuf);
+
+#if defined(_MSC_VER)
+  Win32ThreadID = pthread_getw32threadid_np (thr);
+  if (Win32ThreadID)
+    {
+      SetThreadName(Win32ThreadID, newname);
+    }
+#endif
+
+  tp = (ptw32_thread_t *) thr.p;
+
+  ptw32_mcs_lock_acquire (&tp->threadLock, &threadLock);
+
+  oldname = tp->name;
+  tp->name = newname;
+  if (oldname)
+    {
+      free(oldname);
+    }
+
+  ptw32_mcs_lock_release (&threadLock);
+
+  return 0;
+}
+#else
+int
+pthread_setname_np(pthread_t thr, const char *name)
+{
+  ptw32_mcs_local_node_t threadLock;
+  int result;
+  char * newname;
+  char * oldname;
+  ptw32_thread_t * tp;
+#if defined(_MSC_VER)
+  DWORD Win32ThreadID;
+#endif
+
+  /*
+   * Validate the thread id. This method works for Pthreads4w because
+   * pthread_kill and pthread_t are designed to accommodate it, but the
+   * method is not portable.
+   */
+  result = pthread_kill (thr, 0);
+  if (0 != result)
+    {
+      return result;
+    }
+
+  newname = _strdup(name);
+
+#if defined(_MSC_VER)
+  Win32ThreadID = pthread_getw32threadid_np (thr);
+
+  if (Win32ThreadID)
+    {
+      SetThreadName(Win32ThreadID, newname);
+    }
+#endif
+
+  tp = (ptw32_thread_t *) thr.p;
+
+  ptw32_mcs_lock_acquire (&tp->threadLock, &threadLock);
+
+  oldname = tp->name;
+  tp->name = newname;
+  if (oldname)
+    {
+      free(oldname);
+    }
+
+  ptw32_mcs_lock_release (&threadLock);
+
+  return 0;
+}
+#endif