X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=rts%2Fsm%2FEvac.c;h=9a5f27887e382624e8d38cdb6d1f41655ba7d05e;hb=a59f5d6552674928879cae0d225e6052876d5ca4;hp=65da0762f2d9a75500b4d71d106ea986849e4bdd;hpb=f30d527344db528618f64a25250a3be557d9f287;p=ghc-hetmet.git

diff --git a/rts/sm/Evac.c b/rts/sm/Evac.c
index 65da076..9a5f278 100644
--- a/rts/sm/Evac.c
+++ b/rts/sm/Evac.c
@@ -704,7 +704,6 @@ loop:
 
   case TSO:
       copy(p,info,q,sizeofW(StgTSO),gen);
-      evacuate((StgClosure**)&(((StgTSO*)(*p))->stackobj));
       return;
 
   case STACK:
@@ -943,7 +942,7 @@ selector_loop:
               // For the purposes of LDV profiling, we have destroyed
               // the original selector thunk, p.
               SET_INFO(p, (StgInfoTable *)info_ptr);
-              OVERWRITING_CLOSURE(p);
+              OVERWRITING_CLOSURE((StgClosure*)p);
               SET_INFO(p, &stg_WHITEHOLE_info);
 #endif