diff options
| -rw-r--r-- | compiler/llvmGen/LlvmCodeGen.hs | 1 | ||||
| -rw-r--r-- | compiler/llvmGen/LlvmMangler.hs | 7 | ||||
| -rw-r--r-- | compiler/main/DriverPipeline.hs | 2 |
3 files changed, 7 insertions, 3 deletions
diff --git a/compiler/llvmGen/LlvmCodeGen.hs b/compiler/llvmGen/LlvmCodeGen.hs index 53b859103c..b29c215ad2 100644 --- a/compiler/llvmGen/LlvmCodeGen.hs +++ b/compiler/llvmGen/LlvmCodeGen.hs @@ -45,6 +45,7 @@ llvmCodeGen dflags h us cmms env' = funInsert lbl llvmFunTy e in (d,env') in do + showPass dflags "LlVM CodeGen" bufh <- newBufHandle h Prt.bufLeftRender bufh $ pprLlvmHeader ver <- (fromMaybe defaultLlvmVersion) `fmap` figureLlvmVersion dflags diff --git a/compiler/llvmGen/LlvmMangler.hs b/compiler/llvmGen/LlvmMangler.hs index d5624e5625..ff1dfa207c 100644 --- a/compiler/llvmGen/LlvmMangler.hs +++ b/compiler/llvmGen/LlvmMangler.hs @@ -14,6 +14,8 @@ module LlvmMangler ( llvmFixupAsm ) where #include "HsVersions.h" +import DynFlags ( DynFlags ) +import ErrUtils ( showPass ) import LlvmCodeGen.Ppr ( infoSection ) import Control.Exception @@ -54,8 +56,9 @@ dollarPred = ((==) '$') commaPred = ((==) ',') -- | Read in assembly file and process -llvmFixupAsm :: FilePath -> FilePath -> IO () -llvmFixupAsm f1 f2 = do +llvmFixupAsm :: DynFlags -> FilePath -> FilePath -> IO () +llvmFixupAsm dflags f1 f2 = do + showPass dflags "LlVM Mangler" r <- openBinaryFile f1 ReadMode w <- openBinaryFile f2 WriteMode ss <- readSections r w diff --git a/compiler/main/DriverPipeline.hs b/compiler/main/DriverPipeline.hs index 6228d109d3..b378cfe673 100644 --- a/compiler/main/DriverPipeline.hs +++ b/compiler/main/DriverPipeline.hs @@ -1372,7 +1372,7 @@ runPhase LlvmMangle input_fn dflags = do let next_phase = if dopt Opt_SplitObjs dflags then Splitter else As output_fn <- phaseOutputFilename next_phase - io $ llvmFixupAsm input_fn output_fn + io $ llvmFixupAsm dflags input_fn output_fn return (next_phase, output_fn) ----------------------------------------------------------------------------- |