Make some profiling flags dynamic

[ghc-hetmet.git] / compiler / simplStg / SimplStg.lhs

diff --git a/compiler/simplStg/SimplStg.lhs b/compiler/simplStg/SimplStg.lhs
index e0d13c6..4c240e2 100644 (file)
--- 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