diff options
| author | David Terei <davidterei@gmail.com> | 2011-11-18 14:42:47 -0800 |
|---|---|---|
| committer | David Terei <davidterei@gmail.com> | 2011-11-22 11:05:14 -0800 |
| commit | 1f9ca81cff59ed6c0078437a992f40c13d2667c7 (patch) | |
| tree | b349045ecd38d5bc2c60e2dca60b0ca39afbe38c | |
| parent | 508d8e0c31140bbaf99c26faf5fe2e4fa272f170 (diff) | |
| download | haskell-1f9ca81cff59ed6c0078437a992f40c13d2667c7.tar.gz | |
Enable '-split-objs' with llvm backend
| -rw-r--r-- | compiler/main/DriverPipeline.hs | 7 |
1 files changed, 4 insertions, 3 deletions
diff --git a/compiler/main/DriverPipeline.hs b/compiler/main/DriverPipeline.hs index a953b01e90..e5906585ff 100644 --- a/compiler/main/DriverPipeline.hs +++ b/compiler/main/DriverPipeline.hs @@ -1376,11 +1376,12 @@ runPhase LlvmLlc input_fn dflags ----------------------------------------------------------------------------- -- LlvmMangle phase -runPhase LlvmMangle input_fn _dflags +runPhase LlvmMangle input_fn dflags = do - output_fn <- phaseOutputFilename As + let next_phase = if dopt Opt_SplitObjs dflags then Splitter else As + output_fn <- phaseOutputFilename next_phase io $ llvmFixupAsm input_fn output_fn - return (As, output_fn) + return (next_phase, output_fn) ----------------------------------------------------------------------------- -- merge in stub objects |