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

evacuate(): fix THUNK case

[project @ 2005-04-22 14:18:29 by simonmar]
evacuate(): fix THUNK case
6444de58 · simonmar · 5d0394e2 · 6444de58
Commit 6444de58 authored Apr 22, 2005 by simonmar
Hide whitespace changes
Inline Side-by-side

Showing with 3 additions and 1 deletion

ghc/rts/GC.c ghc/rts/GC.c +3 -1

No files found.
--- 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: