diff options
| -rw-r--r-- | rts/Compact.cmm | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/rts/Compact.cmm b/rts/Compact.cmm index 8a358e1da5..101c002834 100644 --- a/rts/Compact.cmm +++ b/rts/Compact.cmm @@ -224,7 +224,7 @@ eval: CONSTR_1_1: { (should) = ccall shouldCompact(compact "ptr", p "ptr"); - if (should == SHOULDCOMPACT_IN_CNF) { P_[pp] = p; return(); } + if (should == SHOULDCOMPACT_IN_CNF) { P_[pp] = tag | p; return(); } constructor: @@ -274,7 +274,7 @@ eval: (should) = ccall shouldCompact(compact "ptr", p "ptr"); if (should == SHOULDCOMPACT_IN_CNF || - should == SHOULDCOMPACT_STATIC) { P_[pp] = p; return(); } + should == SHOULDCOMPACT_STATIC) { P_[pp] = tag | p; return(); } goto constructor; }} |