XXX: Disable selector optimization and shortcutting

rts/sm/Evac.c

@@ -816,6 +816,9 @@ loop:
       StgClosure *r;
       const StgInfoTable *i;
       r = ((StgInd*)q)->indirectee;
+      // XXX: disable shortcutting
+      copy(p,info,q,sizeofW(StgInd),gen_no);
+      return;
       if (GET_CLOSURE_TAG(r) == 0) {
           i = r->header.info;
           if (IS_FORWARDING_PTR(i)) {
@@ -870,6 +873,8 @@ loop:
       return;
 
   case IND:
+    // XXX: disable shortcutting
+    copy(p,info,q,sizeofW(StgInd),gen_no);
     // follow chains of indirections, don't evacuate them
     q = ((StgInd*)q)->indirectee;
     *p = q;
@@ -1238,6 +1243,9 @@ selector_loop:
         goto bale_out;
     }
 
+    // XXX: Disable selector optimization
+    goto bale_out;
+
     info = INFO_PTR_TO_STRUCT(info);
     switch (info->type) {
       case WHITEHOLE: