projects
/
ghc-hetmet.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Implement INLINABLE pragma
[ghc-hetmet.git]
/
compiler
/
vectorise
/
Vectorise
/
Type
/
PADict.hs
diff --git
a/compiler/vectorise/Vectorise/Type/PADict.hs
b/compiler/vectorise/Vectorise/Type/PADict.hs
index
ef5c8d5
..
d3d2213
100644
(file)
--- a/
compiler/vectorise/Vectorise/Type/PADict.hs
+++ b/
compiler/vectorise/Vectorise/Type/PADict.hs
@@
-56,7
+56,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
let body = mkLams (tvs ++ args) expr
raw_var <- newExportedVar (method_name name) (exprType body)
let var = raw_var
- `setIdUnfolding` mkInlineRule body (Just (length args))
+ `setIdUnfolding` mkInlineUnfolding (Just (length args)) body
`setInlinePragma` alwaysInlinePragma
hoistBinding var body
return var
`setInlinePragma` alwaysInlinePragma
hoistBinding var body
return var