[project @ 2005-10-26 15:22:08 by simonmar]

The prev/next link fields in struct Capability_ aren't used

diff --git a/ghc/rts/Capability.c b/ghc/rts/Capability.c
index 2288ca6..d30d5bc 100644 (file)
--- a/ghc/rts/Capability.c
+++ b/ghc/rts/Capability.c
@@ -138,8 +138,6 @@ initCapability( Capability *cap, nat i )
     cap->suspended_ccalling_tasks = NULL;
     cap->returning_tasks_hd = NULL;
     cap->returning_tasks_tl = NULL;
-    cap->next = NULL;
-    cap->prev = NULL;
 #endif
 
     cap->f.stgGCEnter1     = (F_)__stg_gc_enter_1;

diff --git a/ghc/rts/Capability.h b/ghc/rts/Capability.h
index 875f3e7..5b96019 100644 (file)
--- a/ghc/rts/Capability.h
+++ b/ghc/rts/Capability.h
@@ -61,9 +61,6 @@ struct Capability_ {
     Task *suspended_ccalling_tasks;
 
 #if defined(THREADED_RTS)
-    struct Capability_ *next;
-    struct Capability_ *prev;
-
     // Worker Tasks waiting in the wings.  Singly-linked.
     Task *spare_workers;