X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=rts%2Fsm%2FEvac.c;h=dda565967516acd91086bcdbdfae6399758ca241;hb=ca5ded310c0a596be199a3da5f14be2fb2020687;hp=6ffe1677768a53148fe4eb3b1a49098401e9d3d1;hpb=cb3cb473854e815784375ad23cc5081621a95ce8;p=ghc-hetmet.git

diff --git a/rts/sm/Evac.c b/rts/sm/Evac.c
index 6ffe167..dda5659 100644
--- a/rts/sm/Evac.c
+++ b/rts/sm/Evac.c
@@ -4,6 +4,11 @@
  *
  * Generational garbage collector: evacuation functions
  *
+ * Documentation on the architecture of the Garbage Collector can be
+ * found in the online commentary:
+ * 
+ *   http://hackage.haskell.org/trac/ghc/wiki/Commentary/Rts/Storage/GC
+ *
  * ---------------------------------------------------------------------------*/
 
 #include "Rts.h"
@@ -541,9 +546,7 @@ loop:
 
   case RET_BCO:
   case RET_SMALL:
-  case RET_VEC_SMALL:
   case RET_BIG:
-  case RET_VEC_BIG:
   case RET_DYN:
   case UPDATE_FRAME:
   case STOP_FRAME:
@@ -841,6 +844,14 @@ selector_loop:
 	  if (thunk_selector_depth >= MAX_THUNK_SELECTOR_DEPTH) {
 	      break;
 	  }
+
+	  // we don't update THUNK_SELECTORS in the compacted
+	  // generation, because compaction does not remove the INDs
+	  // that result, this causes confusion later.
+	  if (Bdescr((P_)selectee)->flags && BF_COMPACTED) {
+	      break;
+	  }
+
 	  thunk_selector_depth++;
 
 	  val = eval_thunk_selector(info->layout.selector_offset,