X-Git-Url: http://git.megacz.com/?p=ghc-hetmet.git;a=blobdiff_plain;f=compiler%2Fvectorise%2FVectBuiltIn.hs;h=4a47457b856db8da2ce539a0ff957f3ce3e9f6cb;hp=09000ea76d200ab965c81867c6e7e547ce0235da;hb=c6ce13642a2035789b6821a4a2927bc4349d1f15;hpb=e4ff684d57b1caef2c42d645cafbe7a3b70ccfcc

diff --git a/compiler/vectorise/VectBuiltIn.hs b/compiler/vectorise/VectBuiltIn.hs
index 09000ea..4a47457 100644
--- a/compiler/vectorise/VectBuiltIn.hs
+++ b/compiler/vectorise/VectBuiltIn.hs
@@ -308,7 +308,7 @@ builtinPAs bi
   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)