X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=rts%2Fsm%2FEvac.c;h=42b6b1f66689e29845971fb45138bc71d0d6439d;hb=8d6bc9bf51829ea04da5f599b84114ef220f0a19;hp=a0c2ae7a84cb578401c7dae3931bf33a912fe5e7;hpb=6ff4beae14211e6078b2845f52b2220d72a52228;p=ghc-hetmet.git

diff --git a/rts/sm/Evac.c b/rts/sm/Evac.c
index a0c2ae7..42b6b1f 100644
--- a/rts/sm/Evac.c
+++ b/rts/sm/Evac.c
@@ -448,7 +448,8 @@ loop:
 
   case MUT_VAR_CLEAN:
   case MUT_VAR_DIRTY:
-  case MVAR:
+  case MVAR_CLEAN:
+  case MVAR_DIRTY:
       return copy(q,sizeW_fromITBL(info),stp);
 
   case CONSTR_0_1: