diff options
| author | simonmar@microsoft.com <unknown> | 2007-11-23 16:25:22 +0000 |
|---|---|---|
| committer | simonmar@microsoft.com <unknown> | 2007-11-23 16:25:22 +0000 |
| commit | 8425e6e596bb9866d7dc6ab00488fdee154f9bfd (patch) | |
| tree | 4cc2e1e01f691076f6c8374a3480d705b35916b9 /rts/sm/Evac.c-inc | |
| parent | fb1c3f4d3af3d361454f3e0d02d8ea1cb9fc1228 (diff) | |
| download | haskell-8425e6e596bb9866d7dc6ab00488fdee154f9bfd.tar.gz | |
oops, restore accidentally disabled hash-consing for Char
Diffstat (limited to 'rts/sm/Evac.c-inc')
| -rw-r--r-- | rts/sm/Evac.c-inc | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/rts/sm/Evac.c-inc b/rts/sm/Evac.c-inc index c7e43c30f3..477c061479 100644 --- a/rts/sm/Evac.c-inc +++ b/rts/sm/Evac.c-inc @@ -353,7 +353,7 @@ loop: (StgClosure *)CHARLIKE_CLOSURE((StgChar)w) ); } - if (q->header.info == Izh_con_info && + else if (q->header.info == Izh_con_info && (StgInt)w >= MIN_INTLIKE && (StgInt)w <= MAX_INTLIKE) { *p = TAG_CLOSURE(tag, (StgClosure *)INTLIKE_CLOSURE((StgInt)w) |