[commit: nofib] wip/strict-compress2: Replace mentions of {-# STRICT -#} with bangs in compress2 (70b59f3)
git at git.haskell.org
git at git.haskell.org
Mon Dec 31 10:15:04 UTC 2018
Repository : ssh://git@git.haskell.org/nofib
On branch : wip/strict-compress2
Link : http://ghc.haskell.org/trac/ghc/changeset/70b59f3dee53667d98bbdc60d4591b92711cdbac/nofib
>---------------------------------------------------------------
commit 70b59f3dee53667d98bbdc60d4591b92711cdbac
Author: Sebastian Graf <sgraf1337 at gmail.com>
Date: Mon Dec 31 11:10:41 2018 +0100
Replace mentions of {-# STRICT -#} with bangs in compress2
The pragma hasn't been recognised for a long time.
Replacing it with bangs will change program semantics to how it was
intended. The perf CI build is currently broken anyway, so this
shouldn't skew numbers too much.
>---------------------------------------------------------------
70b59f3dee53667d98bbdc60d4591b92711cdbac
real/compress2/Encode.hs | 12 ++++++------
real/compress2/compress2.stdout | 2 +-
2 files changed, 7 insertions(+), 7 deletions(-)
diff --git a/real/compress2/Encode.hs b/real/compress2/Encode.hs
index 290e2fa..c3c2931 100644
--- a/real/compress2/Encode.hs
+++ b/real/compress2/Encode.hs
@@ -14,12 +14,12 @@ data CodeEvent =
Clear deriving Show{-was:Text-}
data CodeState = CS
- Int {-# STRICT #-}
- Int {-# STRICT #-}
- Int {-# STRICT #-}
- Int {-# STRICT #-}
- Int {-# STRICT #-}
- Int {-# STRICT #-}
+ !Int
+ !Int
+ !Int
+ !Int
+ !Int
+ !Int
firstEnt = 257 :: Int
maxBits = 16 :: Int
diff --git a/real/compress2/compress2.stdout b/real/compress2/compress2.stdout
index 5c949b3..d62aa2e 100644
--- a/real/compress2/compress2.stdout
+++ b/real/compress2/compress2.stdout
@@ -1 +1 @@
-8522868473445645791
+-787007679832202299
More information about the ghc-commits
mailing list