X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=rts%2Fsm%2FGC.h;h=62a4872f2b51d120a33e6ce5bb8870616a19cdcc;hb=12c1559835a971b49042929b77c41ae6c3f8360b;hp=0e0d90a48e212e634a9d0fcdb2cada552744cb3f;hpb=a75a8790410ce3ffb439bfd0b7c3999e7df72eb1;p=ghc-hetmet.git

diff --git a/rts/sm/GC.h b/rts/sm/GC.h
index 0e0d90a..62a4872 100644
--- a/rts/sm/GC.h
+++ b/rts/sm/GC.h
@@ -76,9 +76,6 @@ typedef struct step_workspace_ {
     step * step;		// the step for this workspace 
     struct gc_thread_ * gct;    // the gc_thread that contains this workspace
 
-    // block that is currently being scanned
-    bdescr *     scan_bd;
-
     // where objects to be scavenged go
     bdescr *     todo_bd;
     StgPtr       todo_free;            // free ptr for todo_bd
@@ -128,6 +125,9 @@ typedef struct gc_thread_ {
 
     lnat gc_count;                 // number of GCs this thread has done
 
+    // block that is currently being scanned
+    bdescr *     scan_bd;
+
     // --------------------
     // evacuate flags