From: simonmar <unknown>
Date: Wed, 26 Oct 2005 15:22:08 +0000 (+0000)
Subject: [project @ 2005-10-26 15:22:08 by simonmar]
X-Git-Tag: Initial_conversion_from_CVS_complete~121
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;ds=sidebyside;h=d3cfe8948991666fe518140b1a60082accb7b7fd;p=ghc-hetmet.git

[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
--- 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
--- 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;