diff options
-rw-r--r-- | rts/sm/CNF.c | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/rts/sm/CNF.c b/rts/sm/CNF.c index 597b7853bc..f85b390414 100644 --- a/rts/sm/CNF.c +++ b/rts/sm/CNF.c @@ -541,9 +541,9 @@ insertCompactHash (Capability *cap, StgClosure *p, StgClosure *to) { insertHashTable(str->hash, (StgWord)p, (const void*)to); - const StgInfoTable *strinfo = str->header.info; - if (strinfo == &stg_COMPACT_NFDATA_CLEAN_info) { - strinfo = &stg_COMPACT_NFDATA_DIRTY_info; + const StgInfoTable **strinfo = &str->header.info; + if (*strinfo == &stg_COMPACT_NFDATA_CLEAN_info) { + *strinfo = &stg_COMPACT_NFDATA_DIRTY_info; recordClosureMutated(cap, (StgClosure*)str); } } |