From 8425e6e596bb9866d7dc6ab00488fdee154f9bfd Mon Sep 17 00:00:00 2001 From: "simonmar@microsoft.com" Date: Fri, 23 Nov 2007 16:25:22 +0000 Subject: [PATCH] oops, restore accidentally disabled hash-consing for Char --- rts/sm/Evac.c-inc | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/rts/sm/Evac.c-inc b/rts/sm/Evac.c-inc index c7e43c3..477c061 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) -- 1.7.10.4