From 6444de585f3d7cd44119eb651629f5b7b7f6eb45 Mon Sep 17 00:00:00 2001 From: simonmar Date: Fri, 22 Apr 2005 14:18:29 +0000 Subject: [PATCH] [project @ 2005-04-22 14:18:29 by simonmar] evacuate(): fix THUNK case --- ghc/rts/GC.c | 4 +++- 1 file changed, 3 insertions(+), 1 deletion(-) 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: -- 1.7.10.4