Repository : ssh://darcs.haskell.org//srv/darcs/ghc

On branch  : master

http://hackage.haskell.org/trac/ghc/changeset/43178674471928560dc645983ce6f185b20a5a26

>---------------------------------------------------------------

commit 43178674471928560dc645983ce6f185b20a5a26
Author: Simon Marlow <[email protected]>
Date:   Mon Jan 9 11:52:24 2012 +0000

    last_free_capability should never be NULL

>---------------------------------------------------------------

 rts/Capability.c |    2 +-
 1 files changed, 1 insertions(+), 1 deletions(-)

diff --git a/rts/Capability.c b/rts/Capability.c
index d04d007..3177e3b 100644
--- a/rts/Capability.c
+++ b/rts/Capability.c
@@ -357,7 +357,7 @@ moreCapabilities (nat from USED_IF_THREADS, nat to 
USED_IF_THREADS)
        initCapability(&capabilities[i], i);
     }
 
-    last_free_capability = NULL;
+    last_free_capability = &capabilities[0];
 
     debugTrace(DEBUG_sched, "allocated %d more capabilities", to - from);
 



_______________________________________________
Cvs-ghc mailing list
[email protected]
http://www.haskell.org/mailman/listinfo/cvs-ghc

Reply via email to