From: kglynn <unknown>
Date: Fri, 9 Apr 1999 01:55:15 +0000 (+0000)
Subject: [project @ 1999-04-09 01:55:15 by kglynn]
X-Git-Tag: Approximately_9120_patches~6326
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=435af9cf41c85ee69da5ecdaad5830e79c9c33d7;p=ghc-hetmet.git

[project @ 1999-04-09 01:55:15 by kglynn]
(keving)

Test Update: Re-instate support for -fprint-core
---

diff --git a/ghc/compiler/simplCore/SimplCore.lhs b/ghc/compiler/simplCore/SimplCore.lhs
index e3447f0..dfd9ac5 100644
--- a/ghc/compiler/simplCore/SimplCore.lhs
+++ b/ghc/compiler/simplCore/SimplCore.lhs
@@ -114,6 +114,9 @@ doCorePass us binds CoreDoFullLaziness       = _scc_ "CoreFloating"   floatOutwa
 doCorePass us binds CoreDoStaticArgs	     = _scc_ "CoreStaticArgs" doStaticArgs us binds
 doCorePass us binds CoreDoStrictness	     = _scc_ "CoreStranal"    saWwTopBinds us binds
 doCorePass us binds CoreDoSpecialising	     = _scc_ "Specialise"     specProgram us binds
+doCorePass us binds CoreDoPrintCore	     = _scc_ "PrintCore"      do
+                                                                       putStr (showSDoc $ pprCoreBindings binds)
+								       return binds
 \end{code}