projects
/
ghc-hetmet.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Trace vectorisation failures
[ghc-hetmet.git]
/
compiler
/
vectorise
/
VectCore.hs
diff --git
a/compiler/vectorise/VectCore.hs
b/compiler/vectorise/VectCore.hs
index
23fe0e4
..
1ccc381
100644
(file)
--- a/
compiler/vectorise/VectCore.hs
+++ b/
compiler/vectorise/VectCore.hs
@@
-7,8
+7,7
@@
module VectCore (
vNonRec, vRec,
vVar, vType, vNote, vLet,
vNonRec, vRec,
vVar, vType, vNote, vLet,
- vLams,
- mkVLams, mkVVarApps
+ vLams, vLamsWithoutLC, vVarApps
) where
#include "HsVersions.h"
) where
#include "HsVersions.h"
@@
-60,13
+59,13
@@
vLams lc vs (ve, le) = (mkLams vvs ve, mkLams (lc:lvs) le)
where
(vvs,lvs) = unzip vs
where
(vvs,lvs) = unzip vs
-mkVLams :: [VVar] -> VExpr -> VExpr
-mkVLams vvs (ve,le) = (mkLams vs ve, mkLams ls le)
+vLamsWithoutLC :: [VVar] -> VExpr -> VExpr
+vLamsWithoutLC vvs (ve,le) = (mkLams vs ve, mkLams ls le)
where
(vs,ls) = unzip vvs
where
(vs,ls) = unzip vvs
-mkVVarApps :: Var -> VExpr -> [VVar] -> VExpr
-mkVVarApps lc (ve, le) vvs = (ve `mkVarApps` vs, le `mkVarApps` (lc : ls))
+vVarApps :: Var -> VExpr -> [VVar] -> VExpr
+vVarApps lc (ve, le) vvs = (ve `mkVarApps` vs, le `mkVarApps` (lc : ls))
where
(vs,ls) = unzip vvs
where
(vs,ls) = unzip vvs