diff options
| author | Ian Lynagh <igloo@earth.li> | 2008-03-29 14:48:44 +0000 |
|---|---|---|
| committer | Ian Lynagh <igloo@earth.li> | 2008-03-29 14:48:44 +0000 |
| commit | f8078bb6d02be9bd13f3d28a79cf2c9a4d9c89cd (patch) | |
| tree | 1d8c3cd952179b48d9c8d7650bfc4165c24e3ef4 /compiler/stgSyn | |
| parent | aff2929f17d9a543ae9cf6b83218e33474288e24 (diff) | |
| download | haskell-f8078bb6d02be9bd13f3d28a79cf2c9a4d9c89cd.tar.gz | |
Remove an #ifdef DEBUG
Diffstat (limited to 'compiler/stgSyn')
| -rw-r--r-- | compiler/stgSyn/CoreToStg.lhs | 7 |
1 files changed, 2 insertions, 5 deletions
diff --git a/compiler/stgSyn/CoreToStg.lhs b/compiler/stgSyn/CoreToStg.lhs index 529de774e7..d03412ad3d 100644 --- a/compiler/stgSyn/CoreToStg.lhs +++ b/compiler/stgSyn/CoreToStg.lhs @@ -39,6 +39,7 @@ import StaticFlags ( opt_RuntimeTypes ) import Module import Outputable import MonadUtils +import Util \end{code} %************************************************************************ @@ -636,16 +637,12 @@ coreToStgLet let_no_escape bind body = do no_binder_escapes = isEmptyVarSet (set_of_binders `intersectVarSet` all_escs) -#ifdef DEBUG -- Debugging code as requested by Andrew Kennedy checked_no_binder_escapes - | not no_binder_escapes && any is_join_var binders + | debugIsOn && not no_binder_escapes && any is_join_var binders = pprTrace "Interesting! A join var that isn't let-no-escaped" (ppr binders) False | otherwise = no_binder_escapes -#else - checked_no_binder_escapes = no_binder_escapes -#endif -- Mustn't depend on the passed-in let_no_escape flag, since -- no_binder_escapes is used by the caller to derive the flag! |