[project @ 1999-05-18 15:03:54 by simonpj]

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

diff --git a/ghc/compiler/simplStg/SimplStg.lhs b/ghc/compiler/simplStg/SimplStg.lhs
index 4340441..f555c57 100644 (file)
--- a/ghc/compiler/simplStg/SimplStg.lhs
+++ b/ghc/compiler/simplStg/SimplStg.lhs
@@ -21,13 +21,13 @@ import SRT          ( computeSRTs )
 
 import CmdLineOpts     ( opt_SccGroup,
                          opt_StgDoLetNoEscapes, opt_D_verbose_stg2stg,
-                         opt_DoStgLinting,
+                         opt_DoStgLinting, opt_D_dump_stg,
                          StgToDo(..)
                        )
 import Id              ( Id )
 import Module          ( Module, moduleString )
 import VarEnv
-import ErrUtils                ( doIfSet )
+import ErrUtils                ( doIfSet, dumpIfSet )
 import UniqSupply      ( splitUniqSupply, UniqSupply )
 import IO              ( hPutStr, stderr )
 import Outputable
@@ -74,6 +74,9 @@ stg2stg stg_todos module_name us binds
        srt_binds       = computeSRTs annotated_binds
     in
 
+    dumpIfSet opt_D_dump_stg "STG syntax:" 
+             (pprStgBindingsWithSRTs srt_binds)        >>
+
     return (srt_binds, cost_centres)
    }
   where