From: simonmar <unknown>
Date: Fri, 22 Apr 2005 14:18:29 +0000 (+0000)
Subject: [project @ 2005-04-22 14:18:29 by simonmar]
X-Git-Tag: Initial_conversion_from_CVS_complete~700
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=6444de585f3d7cd44119eb651629f5b7b7f6eb45;p=ghc-hetmet.git

[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
--- 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: