From: simonmar <unknown>
Date: Wed, 11 May 2005 12:43:48 +0000 (+0000)
Subject: [project @ 2005-05-11 12:43:48 by simonmar]
X-Git-Tag: Initial_conversion_from_CVS_complete~575
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=5ffe96c28244f742e44e7b3abc36cb54ab369c5b;p=ghc-hetmet.git

[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
--- 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);