diff options
Diffstat (limited to 'compiler/vectorise')
| -rw-r--r-- | compiler/vectorise/VectType.hs | 4 | ||||
| -rw-r--r-- | compiler/vectorise/VectUtils.hs | 2 | ||||
| -rw-r--r-- | compiler/vectorise/Vectorise.hs | 2 |
3 files changed, 4 insertions, 4 deletions
diff --git a/compiler/vectorise/VectType.hs b/compiler/vectorise/VectType.hs index 6e7557e9e2..16ac82adca 100644 --- a/compiler/vectorise/VectType.hs +++ b/compiler/vectorise/VectType.hs @@ -789,7 +789,7 @@ vectDataConWorkers orig_tc vect_tc arr_tc raw_worker <- cloneId mkVectOcc orig_worker (exprType body) let vect_worker = raw_worker `setIdUnfolding` - mkInlineRule InlSat body arity + mkInlineRule needSaturated body arity defGlobalVar orig_worker vect_worker return (vect_worker, body) where @@ -830,7 +830,7 @@ buildPADict vect_tc prepr_tc arr_tc repr let body = mkLams (tvs ++ args) expr raw_var <- newExportedVar (method_name name) (exprType body) let var = raw_var - `setIdUnfolding` mkInlineRule InlSat body (length args) + `setIdUnfolding` mkInlineRule needSaturated body (length args) hoistBinding var body return var diff --git a/compiler/vectorise/VectUtils.hs b/compiler/vectorise/VectUtils.hs index 79e0cfb842..8dccd61c24 100644 --- a/compiler/vectorise/VectUtils.hs +++ b/compiler/vectorise/VectUtils.hs @@ -371,7 +371,7 @@ hoistExpr fs expr inl where mk_inline var = case inl of Inline arity -> var `setIdUnfolding` - mkInlineRule InlSat expr arity + mkInlineRule needSaturated expr arity DontInline -> var hoistVExpr :: VExpr -> Inline -> VM VVar diff --git a/compiler/vectorise/Vectorise.hs b/compiler/vectorise/Vectorise.hs index 59fded3c4f..cc91e9fc9c 100644 --- a/compiler/vectorise/Vectorise.hs +++ b/compiler/vectorise/Vectorise.hs @@ -106,7 +106,7 @@ vectTopBinder var inline expr return var' where unfolding = case inline of - Inline arity -> mkInlineRule InlSat expr arity + Inline arity -> mkInlineRule needSaturated expr arity DontInline -> noUnfolding vectTopRhs :: Var -> CoreExpr -> VM (Inline, CoreExpr) |