diff options
Diffstat (limited to 'rts/sm/Compact.c')
| -rw-r--r-- | rts/sm/Compact.c | 9 |
1 files changed, 8 insertions, 1 deletions
diff --git a/rts/sm/Compact.c b/rts/sm/Compact.c index 3528fabb7b..1f7f08748a 100644 --- a/rts/sm/Compact.c +++ b/rts/sm/Compact.c @@ -214,7 +214,13 @@ thread_static( StgClosure* p ) case FUN_STATIC: p = *FUN_STATIC_LINK(p); continue; - case CONSTR_STATIC: + case CONSTR: + case CONSTR_NOCAF: + case CONSTR_1_0: + case CONSTR_0_1: + case CONSTR_2_0: + case CONSTR_1_1: + case CONSTR_0_2: p = *STATIC_LINK(info,p); continue; @@ -609,6 +615,7 @@ thread_obj (const StgInfoTable *info, StgPtr p) case FUN: case CONSTR: + case CONSTR_NOCAF: case PRIM: case MUT_PRIM: case MUT_VAR_CLEAN: |