From: Simon Marlow <marlowsd@gmail.com>
Date: Wed, 15 Dec 2010 15:26:56 +0000 (+0000)
Subject: remove an optimisation that wasn't
X-Git-Url: http://git.megacz.com/?p=ghc-hetmet.git;a=commitdiff_plain;h=05859437c5dfd2967418e3267f7cfc37e4f8952d

remove an optimisation that wasn't
---

diff --git a/rts/sm/Evac.c b/rts/sm/Evac.c
index 17e756f..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: