From: simonmar <unknown>
Date: Wed, 27 Apr 2005 12:53:35 +0000 (+0000)
Subject: [project @ 2005-04-27 12:53:35 by simonmar]
X-Git-Tag: Initial_conversion_from_CVS_complete~657
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=ef59d3c049d39270328bb36b06b7254dd035eda1;p=ghc-hetmet.git

[project @ 2005-04-27 12:53:35 by simonmar]
initCapability: initialise the rInHaskell field (found by Valgrind)
---

diff --git a/ghc/rts/Capability.c b/ghc/rts/Capability.c
index f38433f..1e2d3d6 100644
--- a/ghc/rts/Capability.c
+++ b/ghc/rts/Capability.c
@@ -102,6 +102,7 @@ Capability *free_capabilities;
 static void
 initCapability( Capability *cap )
 {
+    cap->r.rInHaskell      = rtsFalse;
     cap->f.stgGCEnter1     = (F_)__stg_gc_enter_1;
     cap->f.stgGCFun        = (F_)__stg_gc_fun;
 }