projects
/
ghc-hetmet.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (from parent 1:
e4ff684
)
Make sure we generate PA dictionaries for tuples up to mAX_NDP_PROD
author
Roman Leshchinskiy
<rl@cse.unsw.edu.au>
Wed, 12 Mar 2008 03:49:05 +0000
(
03:49
+0000)
committer
Roman Leshchinskiy
<rl@cse.unsw.edu.au>
Wed, 12 Mar 2008 03:49:05 +0000
(
03:49
+0000)
compiler/vectorise/VectBuiltIn.hs
patch
|
blob
|
history
diff --git
a/compiler/vectorise/VectBuiltIn.hs
b/compiler/vectorise/VectBuiltIn.hs
index
09000ea
..
4a47457
100644
(file)
--- a/
compiler/vectorise/VectBuiltIn.hs
+++ b/
compiler/vectorise/VectBuiltIn.hs
@@
-308,7
+308,7
@@
builtinPAs bi
where
mk name mod fs = (name, mod, fs)
where
mk name mod fs = (name, mod, fs)
- tups = map mk_tup [2..3]
+ tups = map mk_tup [2..mAX_NDP_PROD]
mk_tup n = mk (tyConName $ tupleTyCon Boxed n)
nDP_INSTANCES
(mkFastString $ "dPA_" ++ show n)
mk_tup n = mk (tyConName $ tupleTyCon Boxed n)
nDP_INSTANCES
(mkFastString $ "dPA_" ++ show n)