Track changes to DPH library
authorRoman Leshchinskiy <rl@cse.unsw.edu.au>
Mon, 9 Nov 2009 13:17:46 +0000 (13:17 +0000)
committerRoman Leshchinskiy <rl@cse.unsw.edu.au>
Mon, 9 Nov 2009 13:17:46 +0000 (13:17 +0000)
compiler/vectorise/VectBuiltIn.hs

index d417898..ce93ad7 100644 (file)
@@ -233,7 +233,7 @@ initBuiltins pkg
                           | i <- [2..mAX_DPH_COMBINE]]
       let combinePDVars = listArray (2, mAX_DPH_COMBINE) combines
 
-      scalarClass <- externalClass dph_Scalar (fsLit "Scalar")
+      scalarClass <- externalClass dph_PArray (fsLit "Scalar")
       scalar_map <- externalVar dph_Scalar (fsLit "scalar_map")
       scalar_zip2 <- externalVar dph_Scalar (fsLit "scalar_zipWith")
       scalar_zips <- mapM (externalVar dph_Scalar)