[commit: ghc] wip/annotate-core: Hack: Produce latin1 asm output (5256c89)

[git at git.haskell.org]

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

On branch  : wip/annotate-core
Link       : http://ghc.haskell.org/trac/ghc/changeset/5256c89d3172d353d4ebc595b8c38c7ae5a796c9/ghc

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

commit 5256c89d3172d353d4ebc595b8c38c7ae5a796c9
Author: Ben Gamari <ben at smart-cactus.org>
Date:   Fri Jul 21 14:28:57 2017 -0400

    Hack: Produce latin1 asm output


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

5256c89d3172d353d4ebc595b8c38c7ae5a796c9
 compiler/nativeGen/AsmCodeGen.hs | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/compiler/nativeGen/AsmCodeGen.hs b/compiler/nativeGen/AsmCodeGen.hs
index 11bd8a1..ec6f113 100644
--- a/compiler/nativeGen/AsmCodeGen.hs
+++ b/compiler/nativeGen/AsmCodeGen.hs
@@ -98,7 +98,7 @@ import Data.Maybe
 import Data.Ord         ( comparing )
 import Control.Exception
 import Control.Monad
-import System.IO (Handle)
+import System.IO
 
 {-
 The native-code generator has machine-independent and
@@ -330,6 +330,7 @@ nativeCodeGen' :: (Outputable statics, Outputable instr, Instruction instr)
                -> IO UniqSupply
 nativeCodeGen' dflags this_mod modLoc ncgImpl h us cmms
  = do
+        hSetEncoding h latin1
         let ngs0 = NGS [] [] [] [] [] [] emptyUFM mapEmpty
         (ngs, us') <- cmmNativeGenStream dflags this_mod modLoc ncgImpl h us
                                          cmms ngs0