[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 (file)
--- 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;
 }