remove unused cap->in_gc flag

diff --git a/rts/Capability.c b/rts/Capability.c
index 0012c24..f4fdd70 100644 (file)
--- 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 (file)
--- 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 (file)
--- 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();