projects
/
ghc-hetmet.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
[project @ 2003-06-09 15:37:37 by simonpj]
[ghc-hetmet.git]
/
ghc
/
compiler
/
stgSyn
/
CoreToStg.lhs
diff --git
a/ghc/compiler/stgSyn/CoreToStg.lhs
b/ghc/compiler/stgSyn/CoreToStg.lhs
index
c23eb9d
..
1303fb2
100644
(file)
--- a/
ghc/compiler/stgSyn/CoreToStg.lhs
+++ b/
ghc/compiler/stgSyn/CoreToStg.lhs
@@
-12,7
+12,7
@@
module CoreToStg ( coreToStg, coreExprToStg ) where
#include "HsVersions.h"
import CoreSyn
#include "HsVersions.h"
import CoreSyn
-import CoreUtils
+import CoreUtils ( hasNoRedexes, manifestArity, exprType )
import StgSyn
import Type
import StgSyn
import Type
@@
-240,8
+240,8
@@
coreToTopStgRhs scope_fv_info (bndr, rhs)
where
bndr_info = lookupFVInfo scope_fv_info bndr
where
bndr_info = lookupFVInfo scope_fv_info bndr
- upd | rhsIsNonUpd rhs = SingleEntry
- | otherwise = Updatable
+ upd | hasNoRedexes rhs = SingleEntry
+ | otherwise = Updatable
mkTopStgRhs :: UpdateFlag -> FreeVarsInfo -> SRT -> StgBinderInfo -> StgExpr
-> StgRhs
mkTopStgRhs :: UpdateFlag -> FreeVarsInfo -> SRT -> StgBinderInfo -> StgExpr
-> StgRhs