[project @ 2005-04-22 14:18:29 by simonmar]

evacuate(): fix THUNK case

diff --git a/ghc/rts/GC.c b/ghc/rts/GC.c
index 3d6d649..a4f0c17 100644 (file)
--- 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: