[commit: ghc] wip/names3: Disable traces (8f5de2c)

[git at git.haskell.org]

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

On branch  : wip/names3
Link       : http://ghc.haskell.org/trac/ghc/changeset/8f5de2c779207b94f5b0a09b53b169c18af8c0c0/ghc

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

commit 8f5de2c779207b94f5b0a09b53b169c18af8c0c0
Author: Ben Gamari <ben at smart-cactus.org>
Date:   Wed Aug 24 14:26:38 2016 -0400

    Disable traces


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

8f5de2c779207b94f5b0a09b53b169c18af8c0c0
 compiler/iface/BinIface.hs | 5 +++--
 1 file changed, 3 insertions(+), 2 deletions(-)

diff --git a/compiler/iface/BinIface.hs b/compiler/iface/BinIface.hs
index bd5bf90..bc4271e 100644
--- a/compiler/iface/BinIface.hs
+++ b/compiler/iface/BinIface.hs
@@ -303,7 +303,7 @@ putName _dict BinSymbolTable{
   | isKnownKeyName name
   , let (c, u) = unpkUnique (nameUnique name) -- INVARIANT: (ord c) fits in 8 bits
   = -- ASSERT(u < 2^(22 :: Int))
-    pprTrace "putName" (ppr name <+> ppr c <+> ppr u) $
+    --pprTrace "putName" (ppr name <+> ppr c <+> ppr u) $
     put_ bh (0x80000000 .|. (fromIntegral (ord c) `shiftL` 22) .|. (fromIntegral u :: Word32))
 
   | otherwise
@@ -311,7 +311,8 @@ putName _dict BinSymbolTable{
        case lookupUFM symtab_map name of
          Just (off,_) -> put_ bh (fromIntegral off :: Word32)
          Nothing -> do
-            off <- pprTrace "putName2" (ppr name) $ readFastMutInt symtab_next
+            off <- --pprTrace "putName2" (ppr name) $
+                   readFastMutInt symtab_next
             -- MASSERT(off < 2^(30 :: Int))
             writeFastMutInt symtab_next (off+1)
             writeIORef symtab_map_ref