[project @ 2005-05-11 12:43:48 by simonmar]

SMP: add a missing insertHashTable()

diff --git a/ghc/rts/Capability.c b/ghc/rts/Capability.c
index 0ae4688..0d58e75 100644 (file)
--- a/ghc/rts/Capability.c
+++ b/ghc/rts/Capability.c
@@ -307,6 +307,7 @@ waitForReturnCapability( Mutex* pMutex, Capability** pCap )
        *pCap = free_capabilities;
        free_capabilities = (*pCap)->link;
        ASSERT(pCap != NULL);
+       insertHashTable(capability_hash, osThreadId(), *pCap);
 #else
        *pCap = &MainCapability;
        ASSERT(rts_n_free_capabilities == 0);