summaryrefslogtreecommitdiff
path: root/rts/win32
diff options
context:
space:
mode:
authorDuncan Coutts <duncan@well-typed.com>2012-07-03 19:18:46 +0100
committerMikolaj Konarski <mikolaj@well-typed.com>2012-07-07 00:28:19 +0200
commit647ae1cfbb5ea3e2d3b1541c2bc12ea5db321134 (patch)
tree9f40458a21ee74661b95ae43c0c61bc5e3a8e08f /rts/win32
parent01386d383fa535a16ccf6117adaffdd38af703ca (diff)
downloadhaskell-647ae1cfbb5ea3e2d3b1541c2bc12ea5db321134.tar.gz
New functions to get kernel thread Id + serialisable task Id
On most platforms the userspace thread type (e.g. pthread_t) and kernel thread id are different. Normally we don't care about kernel thread Ids, but some system tools for tracing/profiling etc report kernel ids. For example Solaris and OSX's DTrace and Linux's perf tool report kernel thread ids. To be able to match these up with RTS's OSThread we need a way to get at the kernel thread, so we add a new function for to do just that (the implementation is system-dependent). Additionally, strictly speaking the OSThreadId type, used as task ids, is not a serialisable representation. On unix OSThreadId is a typedef for pthread_t, but pthread_t is not guaranteed to be a numeric type. Indeed on some systems pthread_t is a pointer and in principle it could be a structure type. So we add another new function to get a serialisable representation of an OSThreadId. This is only for use in log files. We use the function to serialise an id of a task, with the extra feature that it works in non-threaded builds by always returning 1.
Diffstat (limited to 'rts/win32')
-rw-r--r--rts/win32/OSThreads.c8
1 files changed, 7 insertions, 1 deletions
diff --git a/rts/win32/OSThreads.c b/rts/win32/OSThreads.c
index 818f97b879..d0d97b3c4d 100644
--- a/rts/win32/OSThreads.c
+++ b/rts/win32/OSThreads.c
@@ -10,9 +10,9 @@
#define _WIN32_WINNT 0x0500
#include "Rts.h"
+#include <windows.h>
#if defined(THREADED_RTS)
#include "RtsUtils.h"
-#include <windows.h>
/* For reasons not yet clear, the entire contents of process.h is protected
* by __STRICT_ANSI__ not being defined.
@@ -314,3 +314,9 @@ nat getNumberOfProcessors (void)
}
#endif /* !defined(THREADED_RTS) */
+
+KernelThreadId kernelThreadId (void)
+{
+ DWORD tid = GetCurrentThreadId();
+ return tid;
+}