[commit: ghc] wip/T14068: Do not inline showWord (9cbb784)

[git at git.haskell.org]

Repository : ssh://git@git.haskell.org/ghc

On branch  : wip/T14068
Link       : http://ghc.haskell.org/trac/ghc/changeset/9cbb7848ac00c4777901f32d2a7f3d24704e2aac/ghc

>---------------------------------------------------------------

commit 9cbb7848ac00c4777901f32d2a7f3d24704e2aac
Author: Joachim Breitner <mail at joachim-breitner.de>
Date:   Wed Aug 2 11:26:22 2017 -0400

    Do not inline showWord
    
    mostly because otherwise the test setup of #7014 fails.
    (The test checks for the absence of certain primops in the code, but
    inlining showWords adds many of these.)


>---------------------------------------------------------------

9cbb7848ac00c4777901f32d2a7f3d24704e2aac
 libraries/base/GHC/Show.hs | 1 +
 1 file changed, 1 insertion(+)

diff --git a/libraries/base/GHC/Show.hs b/libraries/base/GHC/Show.hs
index 6965335..ecd7db8 100644
--- a/libraries/base/GHC/Show.hs
+++ b/libraries/base/GHC/Show.hs
@@ -196,6 +196,7 @@ showWord w# cs
  | otherwise = case chr# (ord# '0'# +# word2Int# (w# `remWord#` 10##)) of
                c# ->
                    showWord (w# `quotWord#` 10##) (C# c# : cs)
+{-# NOINLINE showWord #-}
 
 deriving instance Show a => Show (Maybe a)