diff options
Diffstat (limited to 'rts/Compact.cmm')
-rw-r--r-- | rts/Compact.cmm | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/rts/Compact.cmm b/rts/Compact.cmm index 2c8a030ed1..061646846d 100644 --- a/rts/Compact.cmm +++ b/rts/Compact.cmm @@ -154,8 +154,8 @@ eval: } case - MUT_ARR_PTRS_FROZEN0, - MUT_ARR_PTRS_FROZEN: { + MUT_ARR_PTRS_FROZEN_DIRTY, + MUT_ARR_PTRS_FROZEN_CLEAN: { (should) = ccall shouldCompact(compact "ptr", p "ptr"); if (should == SHOULDCOMPACT_IN_CNF) { P_[pp] = p; return(); } @@ -186,8 +186,8 @@ eval: } case - SMALL_MUT_ARR_PTRS_FROZEN0, - SMALL_MUT_ARR_PTRS_FROZEN: { + SMALL_MUT_ARR_PTRS_FROZEN_DIRTY, + SMALL_MUT_ARR_PTRS_FROZEN_CLEAN: { (should) = ccall shouldCompact(compact "ptr", p "ptr"); if (should == SHOULDCOMPACT_IN_CNF) { P_[pp] = p; return(); } |