X-Git-Url: http://git.megacz.com/?p=ghc-hetmet.git;a=blobdiff_plain;f=compiler%2FsimplStg%2FSRT.lhs;h=abad3ce48dfd67cd660b06d5f719747cb4b3ba3d;hp=dfd98329a116f83a75ed40cbfbf61f4ed642d095;hb=cbd7463c986d54422de15cb3b56184de116ef7ba;hpb=8d84d843da4886861b2b27236b413ad135666653

diff --git a/compiler/simplStg/SRT.lhs b/compiler/simplStg/SRT.lhs
index dfd9832..abad3ce 100644
--- a/compiler/simplStg/SRT.lhs
+++ b/compiler/simplStg/SRT.lhs
@@ -16,8 +16,6 @@ bindings have no CAF references, and record the fact in their IdInfo.
 
 module SRT( computeSRTs ) where
 
--- XXX This define is a bit of a hack, and should be done more nicely
-#define FAST_STRING_NOT_NEEDED 1
 #include "HsVersions.h"
 
 import StgSyn
@@ -27,11 +25,7 @@ import VarEnv
 import Maybes		( orElse, expectJust )
 import Bitmap
 
-#ifdef DEBUG
 import Outputable
-#endif
-
-import List
 
 import Util
 \end{code}
@@ -143,9 +137,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)