projects
/
ghc-hetmet.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
| inline |
side by side
(parent:
2ad5ee9
)
avoid a crash: don't return unless the run queue has some threads in it
author
Simon Marlow
<marlowsd@gmail.com>
Wed, 11 Mar 2009 15:45:59 +0000
(15:45 +0000)
committer
Simon Marlow
<marlowsd@gmail.com>
Wed, 11 Mar 2009 15:45:59 +0000
(15:45 +0000)
rts/win32/AwaitEvent.c
patch
|
blob
|
history
diff --git
a/rts/win32/AwaitEvent.c
b/rts/win32/AwaitEvent.c
index
2175626
..
1b92c43
100644
(file)
--- a/
rts/win32/AwaitEvent.c
+++ b/
rts/win32/AwaitEvent.c
@@
-45,14
+45,11
@@
awaitEvent(rtsBool wait)
return;
}
- if (!ret) {
- return; /* still hold the lock */
- }
-
- // Return to the scheduler if:
+ // The return value from awaitRequests() is a red herring: ignore
+ // it. Return to the scheduler if !wait, or
//
// - we were interrupted
- // - new threads have arrived
+ // - the run-queue is now non- empty
} while (wait
&& sched_state == SCHED_RUNNING