From 0494b894ede7f95fe1fcf3849626073cbfd39a34 Mon Sep 17 00:00:00 2001 From: Ian Lynagh <igloo@earth.li> Date: Fri, 24 Apr 2009 12:52:40 +0000 Subject: [PATCH] Use a bang pattern when we where/let-bind values with unlifted types --- Data/Array/Base.hs | 17 +++++++++-------- 1 file changed, 9 insertions(+), 8 deletions(-) diff --git a/Data/Array/Base.hs b/Data/Array/Base.hs index b0b44440..bf0e5f01 100644 --- a/Data/Array/Base.hs +++ b/Data/Array/Base.hs @@ -1174,7 +1174,7 @@ instance MArray (STUArray s) Bool (ST s) where case loop 0# s2# of { s3# -> (# s3#, STUArray l u n marr# #) }}}} where - W# e# = if initialValue then maxBound else 0 + !(W# e#) = if initialValue then maxBound else 0 {-# INLINE unsafeNewArray_ #-} unsafeNewArray_ (l,u) = unsafeNewArraySTUArray_ (l,u) bOOL_SCALE {-# INLINE newArray_ #-} @@ -1486,12 +1486,12 @@ instance MArray (STUArray s) Word64 (ST s) where bOOL_SCALE, bOOL_WORD_SCALE, wORD_SCALE, dOUBLE_SCALE, fLOAT_SCALE :: Int# -> Int# bOOL_SCALE n# = (n# +# last#) `uncheckedIShiftRA#` 3# - where I# last# = SIZEOF_HSWORD * 8 - 1 + where !(I# last#) = SIZEOF_HSWORD * 8 - 1 bOOL_WORD_SCALE n# = bOOL_INDEX (n# +# last#) - where I# last# = SIZEOF_HSWORD * 8 - 1 -wORD_SCALE n# = scale# *# n# where I# scale# = SIZEOF_HSWORD -dOUBLE_SCALE n# = scale# *# n# where I# scale# = SIZEOF_HSDOUBLE -fLOAT_SCALE n# = scale# *# n# where I# scale# = SIZEOF_HSFLOAT + where !(I# last#) = SIZEOF_HSWORD * 8 - 1 +wORD_SCALE n# = scale# *# n# where !(I# scale#) = SIZEOF_HSWORD +dOUBLE_SCALE n# = scale# *# n# where !(I# scale#) = SIZEOF_HSDOUBLE +fLOAT_SCALE n# = scale# *# n# where !(I# scale#) = SIZEOF_HSFLOAT bOOL_INDEX :: Int# -> Int# #if SIZEOF_HSWORD == 4 @@ -1502,8 +1502,9 @@ bOOL_INDEX i# = i# `uncheckedIShiftRA#` 6# bOOL_BIT, bOOL_NOT_BIT :: Int# -> Word# bOOL_BIT n# = int2Word# 1# `uncheckedShiftL#` (word2Int# (int2Word# n# `and#` mask#)) - where W# mask# = SIZEOF_HSWORD * 8 - 1 -bOOL_NOT_BIT n# = bOOL_BIT n# `xor#` mb# where W# mb# = maxBound + where !(W# mask#) = SIZEOF_HSWORD * 8 - 1 +bOOL_NOT_BIT n# = bOOL_BIT n# `xor#` mb# + where !(W# mb#) = maxBound #endif /* __GLASGOW_HASKELL__ */ #ifdef __HUGS__ -- GitLab