projects
/
ghc-hetmet.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
[project @ 2005-11-04 12:02:04 by simonmar]
[ghc-hetmet.git]
/
ghc
/
rts
/
win32
/
OSThreads.c
diff --git
a/ghc/rts/win32/OSThreads.c
b/ghc/rts/win32/OSThreads.c
index
f48540e
..
c772be3
100644
(file)
--- a/
ghc/rts/win32/OSThreads.c
+++ b/
ghc/rts/win32/OSThreads.c
@@
-110,6
+110,13
@@
osThreadId()
return GetCurrentThreadId();
}
return GetCurrentThreadId();
}
+#ifdef USE_CRITICAL_SECTIONS
+void
+initMutex (Mutex* pMut)
+{
+ InitializeCriticalSectionAndSpinCount(pMut,4000);
+}
+#else
void
initMutex (Mutex* pMut)
{
void
initMutex (Mutex* pMut)
{
@@
-120,6
+127,7
@@
initMutex (Mutex* pMut)
*pMut = h;
return;
}
*pMut = h;
return;
}
+#endif
void
newThreadLocalKey (ThreadLocalKey *key)
void
newThreadLocalKey (ThreadLocalKey *key)