msyds/gf-core
1
0
Fork 0
forked from GitHub/gf-core
Code Pull Requests Activity

When profiling, don't add cost centres in Data.Binary.Get

Browse Source 
This change speeds up profiling by an order of magnitude.
Without it, the >>= function for Get dominates runtime completely during profiling.
This commit is contained in:
Andreas Källberg
2021-10-11 10:33:43 +08:00
parent 25dd1354c7
commit 221597bd79
1 changed files with 2 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
src/runtime/haskell/Data/Binary/Get.hs
View File

@@ -1,4 +1,6 @@
{-# LANGUAGE CPP, MagicHash #-} {-# LANGUAGE CPP, MagicHash #-}
-- This module makes profiling a lot slower
{-# OPTIONS_GHC -fno-prof-auto #-}
-- for unboxed shifts -- for unboxed shifts
----------------------------------------------------------------------------- -----------------------------------------------------------------------------