projects
/
ghc-hetmet.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
| inline |
side by side
(parent:
2ffefc1
)
[project @ 2000-11-02 10:17:49 by simonpj]
author
simonpj
<unknown>
Thu, 2 Nov 2000 10:17:49 +0000
(10:17 +0000)
committer
simonpj
<unknown>
Thu, 2 Nov 2000 10:17:49 +0000
(10:17 +0000)
Omitted do-nothing case in SimplCore
ghc/compiler/simplCore/SimplCore.lhs
patch
|
blob
|
history
diff --git
a/ghc/compiler/simplCore/SimplCore.lhs
b/ghc/compiler/simplCore/SimplCore.lhs
index
15257e7
..
2bb6b93
100644
(file)
--- a/
ghc/compiler/simplCore/SimplCore.lhs
+++ b/
ghc/compiler/simplCore/SimplCore.lhs
@@
-132,6
+132,8
@@
doCorePass dfs rb us binds CoreDoUSPInf
= _scc_ "CoreUsageSPInf" noStats dfs (doUsageSPInf dfs us binds)
doCorePass dfs rb us binds CoreDoGlomBinds
= noStats dfs (glomBinds dfs binds)
+doCorePass dfs rb us binds CoreDoNothing
+ = noStats dfs (return binds)
printCore binds = do dumpIfSet True "Print Core"
(pprCoreBindings binds)