projects
/
ghc-hetmet.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
[project @ 2006-01-12 16:16:28 by simonmar]
[ghc-hetmet.git]
/
ghc
/
compiler
/
basicTypes
/
BasicTypes.lhs
diff --git
a/ghc/compiler/basicTypes/BasicTypes.lhs
b/ghc/compiler/basicTypes/BasicTypes.lhs
index
2cdf5ad
..
2527276
100644
(file)
--- a/
ghc/compiler/basicTypes/BasicTypes.lhs
+++ b/
ghc/compiler/basicTypes/BasicTypes.lhs
@@
-48,7
+48,7
@@
module BasicTypes(
CompilerPhase,
Activation(..), isActive, isNeverActive, isAlwaysActive,
CompilerPhase,
Activation(..), isActive, isNeverActive, isAlwaysActive,
- InlineSpec(..), defaultInlineSpec, alwaysInlineSpec,
+ InlineSpec(..), defaultInlineSpec, alwaysInlineSpec, neverInlineSpec,
SuccessFlag(..), succeeded, failed, successIf
) where
SuccessFlag(..), succeeded, failed, successIf
) where
@@
-475,7
+475,8
@@
data InlineSpec
deriving( Eq )
defaultInlineSpec = Inline AlwaysActive False -- Inlining is OK, but not forced
deriving( Eq )
defaultInlineSpec = Inline AlwaysActive False -- Inlining is OK, but not forced
-alwaysInlineSpec = Inline AlwaysActive True -- Inline unconditionally
+alwaysInlineSpec = Inline AlwaysActive True -- INLINE always
+neverInlineSpec = Inline NeverActive False -- NOINLINE
instance Outputable Activation where
ppr AlwaysActive = empty -- The default
instance Outputable Activation where
ppr AlwaysActive = empty -- The default