diff options
author | David Terei <davidterei@gmail.com> | 2011-11-22 12:30:32 -0800 |
---|---|---|
committer | David Terei <davidterei@gmail.com> | 2011-11-22 13:12:37 -0800 |
commit | c21ddffb76e4e0191641a6e8df490125fdbfb982 (patch) | |
tree | 01e284e42dc836775b7594f024b3170bb61d2692 /compiler/main/DriverPipeline.hs | |
parent | aa55fdc580e1b224c500728877975b70caccea8d (diff) | |
download | haskell-c21ddffb76e4e0191641a6e8df490125fdbfb982.tar.gz |
Show LLVM mangler and code gen passes at v2
Diffstat (limited to 'compiler/main/DriverPipeline.hs')
-rw-r--r-- | compiler/main/DriverPipeline.hs | 2 |
1 files changed, 1 insertions, 1 deletions
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) ----------------------------------------------------------------------------- |