From 366e74151e99b34b764de757511bfecd399f2510 Mon Sep 17 00:00:00 2001 From: Ian Lynagh Date: Sat, 29 Mar 2008 16:54:12 +0000 Subject: [PATCH] DEBUG removal --- compiler/simplStg/SRT.lhs | 4 ---- 1 file changed, 4 deletions(-) diff --git a/compiler/simplStg/SRT.lhs b/compiler/simplStg/SRT.lhs index dfd9832..1a17c06 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) -- 1.7.10.4