From: Simon Marlow <marlowsd@gmail.com>
Date: Wed, 2 Dec 2009 15:42:40 +0000 (+0000)
Subject: remove unused cap->in_gc flag
X-Git-Url: http://git.megacz.com/?p=ghc-hetmet.git;a=commitdiff_plain;h=c17eee4d8d25dafa1f8207e6c04ad2f9192b7a01

remove unused cap->in_gc flag
---

diff --git a/rts/Capability.c b/rts/Capability.c
index 0012c24..f4fdd70 100644
--- a/rts/Capability.c
+++ b/rts/Capability.c
@@ -213,7 +213,6 @@ initCapability( Capability *cap, nat i )
 
     cap->no = i;
     cap->in_haskell        = rtsFalse;
-    cap->in_gc             = rtsFalse;
 
     cap->run_queue_hd      = END_TSO_QUEUE;
     cap->run_queue_tl      = END_TSO_QUEUE;
diff --git a/rts/Capability.h b/rts/Capability.h
index ff6e368..35b9203 100644
--- a/rts/Capability.h
+++ b/rts/Capability.h
@@ -43,9 +43,6 @@ struct Capability_ {
     // catching unsafe call-ins.
     rtsBool in_haskell;
 
-    // true if this Capability is currently in the GC
-    rtsBool in_gc;
-
     // The run queue.  The Task owning this Capability has exclusive
     // access to its run queue, so can wake up threads without
     // taking a lock, and the common path through the scheduler is
diff --git a/rts/sm/GC.c b/rts/sm/GC.c
index e943b7c..6b7dc29 100644
--- a/rts/sm/GC.c
+++ b/rts/sm/GC.c
@@ -1071,8 +1071,6 @@ gcWorkerThread (Capability *cap)
     // necessary if we stole a callee-saves register for gct:
     saved_gct = gct;
 
-    cap->in_gc = rtsTrue;
-
     gct = gc_threads[cap->no];
     gct->id = osThreadId();