projects
/
ghc-hetmet.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
[project @ 2004-11-21 22:18:46 by desrt]
[ghc-hetmet.git]
/
ghc
/
rts
/
OSThreads.c
diff --git
a/ghc/rts/OSThreads.c
b/ghc/rts/OSThreads.c
index
cac4abe
..
7ed6fd8
100644
(file)
--- a/
ghc/rts/OSThreads.c
+++ b/
ghc/rts/OSThreads.c
@@
-144,7
+144,7
@@
initCondition( Condition* pCond )
NULL); /* unnamed => process-local. */
if ( h == NULL ) {
NULL); /* unnamed => process-local. */
if ( h == NULL ) {
- belch("initCondition: unable to create");
+ errorBelch("initCondition: unable to create");
}
*pCond = h;
return;
}
*pCond = h;
return;
@@
-154,7
+154,7
@@
void
closeCondition( Condition* pCond )
{
if ( CloseHandle(*pCond) == 0 ) {
closeCondition( Condition* pCond )
{
if ( CloseHandle(*pCond) == 0 ) {
- belch("closeCondition: failed to close");
+ errorBelch("closeCondition: failed to close");
}
return;
}
}
return;
}
@@
-178,10
+178,10
@@
signalCondition ( Condition* pCond )
rtsBool
waitCondition ( Condition* pCond, Mutex* pMut )
{
rtsBool
waitCondition ( Condition* pCond, Mutex* pMut )
{
- RELEASE_LOCK(*pMut);
+ RELEASE_LOCK(pMut);
WaitForSingleObject(*pCond, INFINITE);
/* Hmm..use WaitForMultipleObjects() ? */
WaitForSingleObject(*pCond, INFINITE);
/* Hmm..use WaitForMultipleObjects() ? */
- ACQUIRE_LOCK(*pMut, INFINITE);
+ ACQUIRE_LOCK(pMut);
return rtsTrue;
}
return rtsTrue;
}