projects
/
ghc-hetmet.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
[project @ 2001-07-21 19:08:44 by sof]
[ghc-hetmet.git]
/
ghc
/
compiler
/
coreSyn
/
CoreUnfold.lhs
diff --git
a/ghc/compiler/coreSyn/CoreUnfold.lhs
b/ghc/compiler/coreSyn/CoreUnfold.lhs
index
9441a2a
..
6853b96
100644
(file)
--- a/
ghc/compiler/coreSyn/CoreUnfold.lhs
+++ b/
ghc/compiler/coreSyn/CoreUnfold.lhs
@@
-49,7
+49,7
@@
import Id ( Id, idType, isId,
import VarSet
import Literal ( isLitLitLit, litSize )
import PrimOp ( primOpIsDupable, primOpOutOfLine )
import VarSet
import Literal ( isLitLitLit, litSize )
import PrimOp ( primOpIsDupable, primOpOutOfLine )
-import ForeignCall ( ForeignCall(..), ccallIsCasm )
+import ForeignCall ( okToExposeFCall )
import IdInfo ( InlinePragInfo(..), OccInfo(..), GlobalIdDetails(..),
isNeverInlinePrag
)
import IdInfo ( InlinePragInfo(..), OccInfo(..), GlobalIdDetails(..),
isNeverInlinePrag
)
@@
-490,10
+490,6
@@
okToUnfoldInHiFile e = opt_UnfoldCasms || go e
not (any isLitLitLit [ lit | (LitAlt lit, _, _) <- alts ])
go (Note _ body) = go body
go (Type _) = True
not (any isLitLitLit [ lit | (LitAlt lit, _, _) <- alts ])
go (Note _ body) = go body
go (Type _) = True
-
- -- ok to unfold a PrimOp as long as it's not a _casm_
- okToExposeFCall (CCall cc) = not (ccallIsCasm cc)
- okToExposeFCall other = True
\end{code}
\end{code}