\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
{-# 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