diff options
| author | Ian Lynagh <igloo@earth.li> | 2008-03-29 16:54:12 +0000 |
|---|---|---|
| committer | Ian Lynagh <igloo@earth.li> | 2008-03-29 16:54:12 +0000 |
| commit | 366e74151e99b34b764de757511bfecd399f2510 (patch) | |
| tree | c8b99c7f8806c4062f14ce3b4ff97a92047bde7d | |
| parent | 403ab78dfec15dd131ee48417e096ea28ef53fd9 (diff) | |
| download | haskell-366e74151e99b34b764de757511bfecd399f2510.tar.gz | |
DEBUG removal
| -rw-r--r-- | compiler/simplStg/SRT.lhs | 4 |
1 files changed, 0 insertions, 4 deletions
diff --git a/compiler/simplStg/SRT.lhs b/compiler/simplStg/SRT.lhs index dfd98329a1..1a17c06228 100644 --- a/compiler/simplStg/SRT.lhs +++ b/compiler/simplStg/SRT.lhs @@ -27,9 +27,7 @@ import VarEnv import Maybes ( orElse, expectJust ) import Bitmap -#ifdef DEBUG import Outputable -#endif import List @@ -143,9 +141,7 @@ srtExpr table (StgLetNoEscape live1 live2 bind body) srtExpr table body =: \ body' -> StgLetNoEscape live1 live2 bind' body' -#ifdef DEBUG srtExpr _table expr = pprPanic "srtExpr" (ppr expr) -#endif srtAlt :: IdEnv Int -> StgAlt -> StgAlt srtAlt table (con,args,used,rhs) |