projects
/
ghc-hetmet.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Generate INLINE pragmas for PA methods
[ghc-hetmet.git]
/
compiler
/
vectorise
/
VectType.hs
diff --git
a/compiler/vectorise/VectType.hs
b/compiler/vectorise/VectType.hs
index
16ac82a
..
f31ecd8
100644
(file)
--- a/
compiler/vectorise/VectType.hs
+++ b/
compiler/vectorise/VectType.hs
@@
-24,7
+24,7
@@
import OccName
import Id
import MkId
import BasicTypes ( StrictnessMark(..), boolToRecFlag,
import Id
import MkId
import BasicTypes ( StrictnessMark(..), boolToRecFlag,
- dfunInlinePragma )
+ alwaysInlinePragma, dfunInlinePragma )
import Var ( Var, TyVar, varType )
import Name ( Name, getOccName )
import NameEnv
import Var ( Var, TyVar, varType )
import Name ( Name, getOccName )
import NameEnv
@@
-831,6
+831,7
@@
buildPADict vect_tc prepr_tc arr_tc repr
raw_var <- newExportedVar (method_name name) (exprType body)
let var = raw_var
`setIdUnfolding` mkInlineRule needSaturated body (length args)
raw_var <- newExportedVar (method_name name) (exprType body)
let var = raw_var
`setIdUnfolding` mkInlineRule needSaturated body (length args)
+ `setInlinePragma` alwaysInlinePragma
hoistBinding var body
return var
hoistBinding var body
return var