2a9d765 · text · git.iko.soy

Performance improvements by not taunting the 6.10 inliner.

--HG-- extra : convert_revision : 17dc642a7c245496b50214ab2d46b22228c9779c

commit2a9d765fe008d86068eb1e7fcd54c910fd7f59b9 authorBryan O'Sullivan <bos@serpentine.com> dateMon 30 Nov 2009, 06:47 (17 years ago) parente91c827

2 files changed−3

unifiedsplit

Data/Text/Encoding/Fusion.hs−1

@@ -67,7 +67,6 @@ streamUtf8 :: OnDecodeError -> ByteString -> Stream Char

6767streamUtf8 onErr bs = Stream next 0 (maxSize l)

6868 where

6969 l = B.length bs

70− {-# INLINE next #-}

7170 next i

7271 | i >= l = Done

7372 | U8.validate1 x1 = Yield (unsafeChr8 x1) (i+1)

Data/Text/Fusion/Common.hs−2

@@ -775,7 +775,6 @@ indexI (Stream next s0 _len) n0

775775filter :: (Char -> Bool) -> Stream Char -> Stream Char

776776filter p (Stream next0 s0 len) = Stream next s0 len -- HINT maybe too high

777777 where

778− {-# INLINE next #-}

779778 next !s = case next0 s of

780779 Done -> Done

781780 Skip s' -> Skip s'

@@ -819,7 +818,6 @@ zipWith :: (a -> a -> b) -> Stream a -> Stream a -> Stream b

819818zipWith f (Stream next0 sa0 len1) (Stream next1 sb0 len2) =

820819 Stream next (sa0 :*: sb0 :*: N) (smaller len1 len2)

821820 where

822− {-# INLINE next #-}

823821 next (sa :*: sb :*: N) = case next0 sa of

824822 Done -> Done

825823 Skip sa' -> Skip (sa' :*: sb :*: N)