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

[ghc-hetmet.git] / ghc / rts / Capability.c

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;