diff options
author | Sylvain Henry <sylvain@haskus.fr> | 2019-03-08 12:53:43 +0100 |
---|---|---|
committer | Marge Bot <ben+marge-bot@smart-cactus.org> | 2019-03-09 07:42:34 -0500 |
commit | 6b2f09916e0c8c5f37c9fbe08eb076476501c8d6 (patch) | |
tree | 0e6d77fdd175d94dc50494c1279ac0ca7b8e3ff5 /compiler/nativeGen/AsmCodeGen.hs | |
parent | 6e3e537e419ba8d02dac306d596fba3c1029f123 (diff) | |
download | haskell-6b2f09916e0c8c5f37c9fbe08eb076476501c8d6.tar.gz |
NCG: correctly escape path strings on Windows (#16389)
GHC native code generator generates .incbin and .file directives. We
need to escape those strings correctly on Windows (see #16389).
Diffstat (limited to 'compiler/nativeGen/AsmCodeGen.hs')
-rw-r--r-- | compiler/nativeGen/AsmCodeGen.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/compiler/nativeGen/AsmCodeGen.hs b/compiler/nativeGen/AsmCodeGen.hs index b866741995..84c6a84845 100644 --- a/compiler/nativeGen/AsmCodeGen.hs +++ b/compiler/nativeGen/AsmCodeGen.hs @@ -461,7 +461,7 @@ cmmNativeGens dflags this_mod modLoc ncgImpl h dbgMap = go nonDetEltsUFM $ fileIds' `minusUFM` fileIds -- See Note [Unique Determinism and code generation] pprDecl (f,n) = text "\t.file " <> ppr n <+> - doubleQuotes (ftext f) + pprFilePathString (unpackFS f) emitNativeCode dflags h $ vcat $ map pprDecl newFileIds ++ |