pad step_workspace to 64 bytes, to speed up access to gct->steps[]

[ghc-hetmet.git] / rts / sm / GC.c

diff --git a/rts/sm/GC.c b/rts/sm/GC.c
index 8bdea7d..2b6dbb7 100644 (file)
--- a/rts/sm/GC.c
+++ b/rts/sm/GC.c
@@ -203,6 +203,9 @@ GarbageCollect ( rtsBool force_major_gc )
   }
 #endif
 
+  ASSERT(sizeof(step_workspace) == 16 * sizeof(StgWord));
+  // otherwise adjust the padding in step_workspace.
+
   // tell the stats department that we've started a GC 
   stat_startGC();