projects
/
ghc-hetmet.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
[project @ 1996-05-06 11:01:29 by partain]
[ghc-hetmet.git]
/
ghc
/
compiler
/
simplStg
/
SimplStg.lhs
diff --git
a/ghc/compiler/simplStg/SimplStg.lhs
b/ghc/compiler/simplStg/SimplStg.lhs
index
4335884
..
f0aa84f
100644
(file)
--- a/
ghc/compiler/simplStg/SimplStg.lhs
+++ b/
ghc/compiler/simplStg/SimplStg.lhs
@@
-53,8
+53,7
@@
stg2stg :: [StgToDo] -- spec of what stg-to-stg passes to do
[CostCentre])) -- "extern" cost-centres
stg2stg stg_todos module_name ppr_style us binds
[CostCentre])) -- "extern" cost-centres
stg2stg stg_todos module_name ppr_style us binds
- = _scc_ "Stg2Stg"
- case (splitUniqSupply us) of { (us4now, us4later) ->
+ = case (splitUniqSupply us) of { (us4now, us4later) ->
(if do_verbose_stg2stg then
hPutStr stderr "VERBOSE STG-TO-STG:\n" >>
(if do_verbose_stg2stg then
hPutStr stderr "VERBOSE STG-TO-STG:\n" >>