projects
/
ghc-base.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
| inline |
side by side
(parent:
18ddadf
)
avoid a space leak building up in the "prodding" IORef (part of #2992)
author
Simon Marlow
<marlowsd@gmail.com>
Wed, 11 Mar 2009 09:39:38 +0000
(09:39 +0000)
committer
Simon Marlow
<marlowsd@gmail.com>
Wed, 11 Mar 2009 09:39:38 +0000
(09:39 +0000)
GHC/Conc.lhs
patch
|
blob
|
history
diff --git
a/GHC/Conc.lhs
b/GHC/Conc.lhs
index
1351125
..
8ed61fe
100644
(file)
--- a/
GHC/Conc.lhs
+++ b/
GHC/Conc.lhs
@@
-955,7
+955,8
@@
service_loop wakeup old_delays = do
service_cont :: HANDLE -> [DelayReq] -> IO ()
service_cont wakeup delays = do
- atomicModifyIORef prodding (\_ -> (False,False))
+ r <- atomicModifyIORef prodding (\_ -> (False,False))
+ r `seq` return () -- avoid space leak
service_loop wakeup delays
-- must agree with rts/win32/ThrIOManager.c