[commit: ghc] wip/kavon-nosplit-llvm: did that todo (d15cecc)

git at git.haskell.org git at git.haskell.org
Tue Jun 27 09:16:03 UTC 2017


Repository : ssh://git@git.haskell.org/ghc

On branch  : wip/kavon-nosplit-llvm
Link       : http://ghc.haskell.org/trac/ghc/changeset/d15cecc271709f9d5c22464c173061b42eb2857d/ghc

>---------------------------------------------------------------

commit d15cecc271709f9d5c22464c173061b42eb2857d
Author: Kavon Farvardin <kavon at farvard.in>
Date:   Mon Jun 5 11:29:29 2017 +0100

    did that todo


>---------------------------------------------------------------

d15cecc271709f9d5c22464c173061b42eb2857d
 compiler/main/DriverPipeline.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/compiler/main/DriverPipeline.hs b/compiler/main/DriverPipeline.hs
index 3c670fe..2a94105 100644
--- a/compiler/main/DriverPipeline.hs
+++ b/compiler/main/DriverPipeline.hs
@@ -1072,7 +1072,7 @@ runPhase (HscOut src_flavour mod_name result) _ dflags = do
 
                     PipeState{hsc_env=hsc_env'} <- getPipeState
 
-                    (outputFilename, mStub, foreign_files, mangInfo) <- liftIO $ -- TODO(kavon) use mangInfo
+                    (outputFilename, mStub, foreign_files, mangInfo) <- liftIO $
                       hscGenHardCode hsc_env' cgguts mod_summary output_fn
                     stub_o <- liftIO (mapM (compileStub hsc_env') mStub)
                     foreign_os <- liftIO $



More information about the ghc-commits mailing list