From ef59d3c049d39270328bb36b06b7254dd035eda1 Mon Sep 17 00:00:00 2001
From: simonmar <unknown>
Date: Wed, 27 Apr 2005 12:53:35 +0000
Subject: [PATCH] [project @ 2005-04-27 12:53:35 by simonmar] initCapability:
 initialise the rInHaskell field (found by Valgrind)

---
 ghc/rts/Capability.c |    1 +
 1 file changed, 1 insertion(+)

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;
 }
-- 
1.7.10.4