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

On branch  : ghc-7.4

http://hackage.haskell.org/trac/ghc/changeset/74af5a62196b5af703bd38110409cd1c4f858dce

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

commit 74af5a62196b5af703bd38110409cd1c4f858dce
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 7ce23a1..05b0761 100644
--- a/rts/Capability.c
+++ b/rts/Capability.c
@@ -353,7 +353,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