diff options
| author | simonpj@microsoft.com <unknown> | 2010-09-15 12:44:42 +0000 |
|---|---|---|
| committer | simonpj@microsoft.com <unknown> | 2010-09-15 12:44:42 +0000 |
| commit | a51fe79ebcdcb8285573a18f12cade2101533419 (patch) | |
| tree | 483db14441d3b4f88a40743c9aa1287807026200 /compiler/vectorise/Vectorise.hs | |
| parent | 0ccc12b6d176efe4a6d605864412deda75b62459 (diff) | |
| download | haskell-a51fe79ebcdcb8285573a18f12cade2101533419.tar.gz | |
Implement INLINABLE pragma
Implements Trac #4299. Documentation to come.
Diffstat (limited to 'compiler/vectorise/Vectorise.hs')
| -rw-r--r-- | compiler/vectorise/Vectorise.hs | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/compiler/vectorise/Vectorise.hs b/compiler/vectorise/Vectorise.hs index a296e89fe0..8e048333eb 100644 --- a/compiler/vectorise/Vectorise.hs +++ b/compiler/vectorise/Vectorise.hs @@ -15,7 +15,7 @@ import Vectorise.Monad import HscTypes hiding ( MonadThings(..) ) import Module ( PackageId ) import CoreSyn -import CoreUnfold ( mkInlineRule ) +import CoreUnfold ( mkInlineUnfolding ) import CoreFVs import CoreMonad ( CoreM, getHscEnv ) import FamInstEnv ( extendFamInstEnvList ) @@ -177,7 +177,7 @@ vectTopBinder var inline expr return var' where unfolding = case inline of - Inline arity -> mkInlineRule expr (Just arity) + Inline arity -> mkInlineUnfolding (Just arity) expr DontInline -> noUnfolding |