diff options
Diffstat (limited to 'compiler/main/CodeOutput.hs')
| -rw-r--r-- | compiler/main/CodeOutput.hs | 11 |
1 files changed, 7 insertions, 4 deletions
diff --git a/compiler/main/CodeOutput.hs b/compiler/main/CodeOutput.hs index cdb81b7f9e..f55a15a842 100644 --- a/compiler/main/CodeOutput.hs +++ b/compiler/main/CodeOutput.hs @@ -76,7 +76,8 @@ codeOutput dflags this_mod filenm location foreign_stubs pkg_deps cmm_stream ; stubs_exist <- outputForeignStubs dflags this_mod location foreign_stubs ; case hscTarget dflags of { - HscAsm -> outputAsm dflags this_mod filenm linted_cmm_stream; + HscAsm -> outputAsm dflags this_mod location filenm + linted_cmm_stream; HscC -> outputC dflags filenm linted_cmm_stream pkg_deps; HscLlvm -> outputLlvm dflags filenm linted_cmm_stream; HscInterpreted -> panic "codeOutput: HscInterpreted"; @@ -138,8 +139,10 @@ outputC dflags filenm cmm_stream packages ************************************************************************ -} -outputAsm :: DynFlags -> Module -> FilePath -> Stream IO RawCmmGroup () -> IO () -outputAsm dflags this_mod filenm cmm_stream +outputAsm :: DynFlags -> Module -> ModLocation -> FilePath + -> Stream IO RawCmmGroup () + -> IO () +outputAsm dflags this_mod location filenm cmm_stream | cGhcWithNativeCodeGen == "YES" = do ncg_uniqs <- mkSplitUniqSupply 'n' @@ -147,7 +150,7 @@ outputAsm dflags this_mod filenm cmm_stream _ <- {-# SCC "OutputAsm" #-} doOutput filenm $ \h -> {-# SCC "NativeCodeGen" #-} - nativeCodeGen dflags this_mod h ncg_uniqs cmm_stream + nativeCodeGen dflags this_mod location h ncg_uniqs cmm_stream return () | otherwise |