X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=ghc%2Frts%2FGC.c;h=a4f0c178292ba1c5e2ea80b6178b5603a57e4ff5;hb=6444de585f3d7cd44119eb651629f5b7b7f6eb45;hp=3d6d649181cc96dfc6c85ea305a6b3f8bab8d66c;hpb=5d0394e2003e80c3083beba77b5a70f28d1f4747;p=ghc-hetmet.git

diff --git a/ghc/rts/GC.c b/ghc/rts/GC.c
index 3d6d649..a4f0c17 100644
--- a/ghc/rts/GC.c
+++ b/ghc/rts/GC.c
@@ -1747,8 +1747,10 @@ loop:
   case CONSTR_2_0:
     return copy(q,sizeofW(StgHeader)+2,stp);
 
-  case FUN:
   case THUNK:
+    return copy(q,thunk_sizeW_fromITBL(info),stp);
+
+  case FUN:
   case CONSTR:
   case IND_PERM:
   case IND_OLDGEN_PERM: