08cc33e6af
- add D4089.patch * fix GHCi issue on ppc64 * see Haskell Trac #11262 OBS-URL: https://build.opensuse.org/request/show/534523 OBS-URL: https://build.opensuse.org/package/show/devel:languages:haskell/ghc?expand=0&rev=252
24 lines
988 B
Diff
24 lines
988 B
Diff
Index: ghc-8.0.2/compiler/ghci/RtClosureInspect.hs
|
|
===================================================================
|
|
--- ghc-8.0.2.orig/compiler/ghci/RtClosureInspect.hs
|
|
+++ ghc-8.0.2/compiler/ghci/RtClosureInspect.hs
|
|
@@ -55,6 +55,7 @@ import TysWiredIn
|
|
import DynFlags
|
|
import Outputable as Ppr
|
|
import GHC.Arr ( Array(..) )
|
|
+import GHC.Char
|
|
import GHC.Exts
|
|
import GHC.IO ( IO(..) )
|
|
|
|
@@ -495,7 +496,9 @@ cPprTermBase y =
|
|
repPrim :: TyCon -> [Word] -> SDoc
|
|
repPrim t = rep where
|
|
rep x
|
|
- | t == charPrimTyCon = text $ show (build x :: Char)
|
|
+ -- Char# uses native machine words, whereas Char's Storable instance uses
|
|
+ -- Int32, so we have to read it as an Int.
|
|
+ | t == charPrimTyCon = text $ show (chr (build x :: Int))
|
|
| t == intPrimTyCon = text $ show (build x :: Int)
|
|
| t == wordPrimTyCon = text $ show (build x :: Word)
|
|
| t == floatPrimTyCon = text $ show (build x :: Float)
|