diff options
| author | Ben Gamari <ben@smart-cactus.org> | 2019-07-13 10:25:10 -0400 |
|---|---|---|
| committer | Ben Gamari <ben@smart-cactus.org> | 2019-07-13 10:26:52 -0400 |
| commit | 44aef9fe919572b439d1bb28eab9cf2c254b7d03 (patch) | |
| tree | 2d9081355de490fe70d51e5cdd553b6a18422c9e | |
| parent | de3935a6ccc26ec063e13d2739dd098c7616fde2 (diff) | |
| download | haskell-wip/time-ncg.tar.gz | |
Add timing of native code generatorwip/time-ncg
Hopefully this will help pin down the remaining questions in #16822.
| -rw-r--r-- | compiler/nativeGen/AsmCodeGen.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/compiler/nativeGen/AsmCodeGen.hs b/compiler/nativeGen/AsmCodeGen.hs index 6e9450fd85..8f308adcd2 100644 --- a/compiler/nativeGen/AsmCodeGen.hs +++ b/compiler/nativeGen/AsmCodeGen.hs @@ -317,7 +317,7 @@ nativeCodeGen' :: (Outputable statics, Outputable instr,Outputable jumpDest, -> Stream IO RawCmmGroup () -> IO UniqSupply nativeCodeGen' dflags this_mod modLoc ncgImpl h us cmms - = do + = withTiming (pure dflags) (text "native code generator") (const ()) $ do -- BufHandle is a performance hack. We could hide it inside -- Pretty if it weren't for the fact that we do lots of little -- printDocs here (in order to do codegen in constant space). |