diff options
| author | Norman Ramsey <nr@eecs.harvard.edu> | 2007-09-14 13:42:02 +0000 |
|---|---|---|
| committer | Norman Ramsey <nr@eecs.harvard.edu> | 2007-09-14 13:42:02 +0000 |
| commit | 0f4cdf0261a0dcdade830ea89664ab58efd61ab3 (patch) | |
| tree | f1d3fd60b893a276a35d0fccd77366dc97658f75 | |
| parent | b9bcf6e71abe0d861c99618ee5a7ae9e2c45d26c (diff) | |
| download | haskell-0f4cdf0261a0dcdade830ea89664ab58efd61ab3.tar.gz | |
replace #ifdef DEBUG with debugIsOn in cmm/MkZipCfg
| -rw-r--r-- | compiler/cmm/MkZipCfg.hs | 10 |
1 files changed, 5 insertions, 5 deletions
diff --git a/compiler/cmm/MkZipCfg.hs b/compiler/cmm/MkZipCfg.hs index 2ce28ac42e..7df775fa90 100644 --- a/compiler/cmm/MkZipCfg.hs +++ b/compiler/cmm/MkZipCfg.hs @@ -17,6 +17,7 @@ import UniqSupply import Prelude hiding (zip, unzip, last) +#include "HsVersions.h" ------------------------------------------------------------------------- -- GENERIC ZIPPER-BASED CONTROL-FLOW GRAPH (CONSTRUCTOR VIEW) -- @@ -327,15 +328,11 @@ mkWhileDo cbranch body = note_this_code_becomes_unreachable :: (Monad m, LastNode l, Outputable middle, Outputable l) => ZTail middle l -> m () -#ifdef DEBUG -note_this_code_becomes_unreachable = u +note_this_code_becomes_unreachable = if debugIsOn then u else \_ -> return () where u (ZLast LastExit) = return () u (ZLast (LastOther l)) | isBranchNode l = return () -- Note [Branch follows branch] u tail = fail ("unreachable code: " ++ showSDoc (ppr tail)) -#else -note_this_code_becomes_unreachable _ = return () -#endif {- Note [Branch follows branch] @@ -347,3 +344,6 @@ giving it a label, and start a new one that branches to that label. Emitting a Branch at this point is fine: goto L1; L2: ...stuff... -} + +_unused :: FS.FastString +_unused = undefined |