X-Git-Url: http://git.megacz.com/?p=ghc-hetmet.git;a=blobdiff_plain;f=compiler%2FsimplStg%2FSimplStg.lhs;h=4c240e2135de5d9cac23f9c419a87cba50a89d58;hp=e0d13c67702fcf157180ca33957c590a2515b7a9;hb=aedb94f5f220b5e442b23ecc445fd38c8d9b6ba0;hpb=bfcf076a36269a4742ac72a9ce2ab386998d0420

diff --git a/compiler/simplStg/SimplStg.lhs b/compiler/simplStg/SimplStg.lhs
index e0d13c6..4c240e2 100644
--- a/compiler/simplStg/SimplStg.lhs
+++ b/compiler/simplStg/SimplStg.lhs
@@ -6,8 +6,6 @@
 \begin{code}
 module SimplStg ( stg2stg ) 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
@@ -74,7 +72,7 @@ stg2stg dflags module_name binds
 	     {-# SCC "ProfMassage" #-}
 	     let
 		 (collected_CCs, binds3)
-		   = stgMassageForProfiling this_pkg module_name us1 binds
+		   = stgMassageForProfiling dflags this_pkg module_name us1 binds
 		 this_pkg = thisPackage dflags
 	     in
 	     end_pass us2 "ProfMassage" collected_CCs binds3