X-Git-Url: http://git.megacz.com/?p=ghc-hetmet.git;a=blobdiff_plain;f=compiler%2Fmain%2FCodeOutput.lhs;h=8b5138abb4a1d256531abdab31fbf4829a26a4b7;hp=b155a35ccf8bfc73e297fa48efa2350bc2d68601;hb=475940d68ab79a5f352ccaca485baa17a2df0765;hpb=f0d0e9d63ee27a12e80b6f069be5e9d4b55ca545

diff --git a/compiler/main/CodeOutput.lhs b/compiler/main/CodeOutput.lhs
index b155a35..8b5138a 100644
--- a/compiler/main/CodeOutput.lhs
+++ b/compiler/main/CodeOutput.lhs
@@ -81,7 +81,7 @@ codeOutput dflags this_mod location foreign_stubs pkg_deps flat_abstractC
 	; stubs_exist <- outputForeignStubs dflags this_mod location foreign_stubs
 	; case hscTarget dflags of {
              HscInterpreted -> return ();
-             HscAsm         -> outputAsm dflags filenm flat_abstractC;
+             HscAsm         -> outputAsm dflags filenm this_mod location flat_abstractC;
              HscC           -> outputC dflags filenm this_mod location 
 				 flat_abstractC stubs_exist pkg_deps
 				 foreign_stubs;
@@ -158,13 +158,13 @@ outputC dflags filenm mod location flat_absC
 %************************************************************************
 
 \begin{code}
-outputAsm dflags filenm flat_absC
+outputAsm dflags filenm this_mod location flat_absC
 
 #ifndef OMIT_NATIVE_CODEGEN
 
   = do ncg_uniqs <- mkSplitUniqSupply 'n'
        ncg_output_d <- {-# SCC "NativeCodeGen" #-}
-			  nativeCodeGen dflags flat_absC ncg_uniqs
+			  nativeCodeGen dflags this_mod location flat_absC ncg_uniqs
        dumpIfSet_dyn dflags Opt_D_dump_asm "Asm code" (docToSDoc ncg_output_d)
        {-# SCC "OutputAsm" #-} doOutput filenm $
 	   \f -> printDoc LeftMode f ncg_output_d