diff options
| author | Ian Lynagh <igloo@earth.li> | 2011-10-23 18:49:24 +0100 |
|---|---|---|
| committer | Ian Lynagh <igloo@earth.li> | 2011-10-23 18:58:19 +0100 |
| commit | d73ecf29df82fbae9f313758b807e980ab6258a8 (patch) | |
| tree | 8f6075c2f303be2c825d633ad1fdaa32d8bd4e23 /compiler/stgSyn | |
| parent | 611c2c3a9f87b42bc36c80e560d2f3b9a2cf3f2e (diff) | |
| download | haskell-d73ecf29df82fbae9f313758b807e980ab6258a8.tar.gz | |
Some DEBUG CPP removal
Diffstat (limited to 'compiler/stgSyn')
| -rw-r--r-- | compiler/stgSyn/CoreToStg.lhs | 4 | ||||
| -rw-r--r-- | compiler/stgSyn/StgSyn.lhs | 4 |
2 files changed, 1 insertions, 7 deletions
diff --git a/compiler/stgSyn/CoreToStg.lhs b/compiler/stgSyn/CoreToStg.lhs index e837b8a1eb..2a72489ebf 100644 --- a/compiler/stgSyn/CoreToStg.lhs +++ b/compiler/stgSyn/CoreToStg.lhs @@ -791,9 +791,7 @@ mkStgRhs rhs_fvs srt binder_info rhs then (if isNotTop toplev then SingleEntry -- HA! Paydirt for "dem" else -#ifdef DEBUG - trace "WARNING: SE CAFs unsupported, forcing UPD instead" $ -#endif + (if debugIsOn then trace "WARNING: SE CAFs unsupported, forcing UPD instead" else id) $ Updatable) else Updatable -- For now we forbid SingleEntry CAFs; they tickle the diff --git a/compiler/stgSyn/StgSyn.lhs b/compiler/stgSyn/StgSyn.lhs index a162b79fda..d332a4e279 100644 --- a/compiler/stgSyn/StgSyn.lhs +++ b/compiler/stgSyn/StgSyn.lhs @@ -39,9 +39,7 @@ module StgSyn ( pprStgBinding, pprStgBindings, pprStgBindingsWithSRTs -#ifdef DEBUG , pprStgLVs -#endif ) where #include "HsVersions.h" @@ -804,7 +802,6 @@ instance Outputable AltType where \end{code} \begin{code} -#ifdef DEBUG pprStgLVs :: Outputable occ => GenStgLiveVars occ -> SDoc pprStgLVs lvs = getPprStyle $ \ sty -> @@ -812,7 +809,6 @@ pprStgLVs lvs empty else hcat [text "{-lvs:", interpp'SP (uniqSetToList lvs), text "-}"] -#endif \end{code} \begin{code} |