[commit: nofib] master: Replace mentions of {-# STRICT -#} with bangs in compress2 (95c1dcc)
git at git.haskell.org
git at git.haskell.org
Tue Jan 1 17:27:25 UTC 2019
Repository : ssh://git@git.haskell.org/nofib
On branch : master
Link : http://ghc.haskell.org/trac/ghc/changeset/95c1dccbcaba94920ea4deb940ec6c4558bba7cd/nofib
>---------------------------------------------------------------
commit 95c1dccbcaba94920ea4deb940ec6c4558bba7cd
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.
>---------------------------------------------------------------
95c1dccbcaba94920ea4deb940ec6c4558bba7cd
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