From: simonmar <unknown>
Date: Tue, 10 Sep 2002 12:31:54 +0000 (+0000)
Subject: [project @ 2002-09-10 12:31:54 by simonmar]
X-Git-Tag: Approx_11550_changesets_converted~1690
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=28378bbd526c2833b12c0d6d70961168cfb0264b;p=ghc-hetmet.git

[project @ 2002-09-10 12:31:54 by simonmar]
Put debugging output in #ifdef DEBUG

MERGE TO STABLE
---

diff --git a/ghc/compiler/utils/Binary.hs b/ghc/compiler/utils/Binary.hs
index 4bef25a..3792e21 100644
--- a/ghc/compiler/utils/Binary.hs
+++ b/ghc/compiler/utils/Binary.hs
@@ -263,7 +263,9 @@ expandBin (BinMem _ ix_r sz_r arr_r) off = do
  	     | i <- [ 0 .. sz-1 ] ]
    writeFastMutInt sz_r sz'
    writeIORef arr_r arr'
-   hPutStrLn stderr ("expanding to size: " ++ show sz')
+#ifdef DEBUG
+   hPutStrLn stderr ("Binary: expanding to size: " ++ show sz')
+#endif
    return ()
 expandBin (BinIO _ _ _) _ = return ()
 	-- no need to expand a file, we'll assume they expand by themselves.