[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