dph-prim-seq: warning police
authorBen Lippmeier <benl@ouroborus.net>
Fri, 2 Sep 2011 04:26:47 +0000 (14:26 +1000)
committerBen Lippmeier <benl@ouroborus.net>
Fri, 2 Sep 2011 04:26:47 +0000 (14:26 +1000)
dph-common-vseg/dph-common-vseg.cabal
dph-prim-interface/interface/DPH_Interface.h
dph-prim-seq/Data/Array/Parallel/Unlifted.hs
dph-prim-seq/Data/Array/Parallel/Unlifted/Sequential/Segmented.hs
dph-prim-seq/Data/Array/Parallel/Unlifted/Sequential/Segmented/USSegd.hs
dph-prim-seq/Data/Array/Parallel/Unlifted/Sequential/Segmented/USegd.hs
dph-prim-seq/Data/Array/Parallel/Unlifted/Sequential/Segmented/UVSegd.hs

index 99b7337..2781137 100644 (file)
@@ -36,7 +36,7 @@ Library
         BangPatterns, MagicHash, UnboxedTuples, TypeOperators
 
   GHC-Options: 
-        -Wall -fno-warn-orphans -fno-warn-missing-signatures -Werror
+        -Wall -fno-warn-orphans -fno-warn-missing-signatures
         -Odph 
         -funbox-strict-fields
         -fcpr-off
index e844763..f03ab05 100644 (file)
@@ -733,6 +733,9 @@ fromList :: Elt a => [a] -> Array a
 
 
 -- Aliases for primitive operations -------------------------------------------
+-- We rename these so we can write rules based on the names, and still
+-- control exactly when they get inlined.
+
 dph_mod_index :: Int -> Int -> Int
 {-# INLINE_BACKEND dph_mod_index #-}
 dph_mod_index by idx = idx `GHC.Base.remInt` by
@@ -748,10 +751,11 @@ dph_plus x y = x Prelude.+ y
 
   #-}
 
+{- not used 
 dph_mult :: Int -> Int -> Int
 {-# INLINE_BACKEND dph_mult #-}
 dph_mult x y = x Prelude.* y
-
+-}
 
 tagZeroes :: Array Int -> Array Tag
 {-# INLINE CONLIKE PHASE_BACKEND tagZeroes #-}
index 7d1bc2f..df76ae0 100644 (file)
@@ -1,4 +1,5 @@
 {-# LANGUAGE CPP #-}
+{-# OPTIONS -Wall -fno-warn-orphans -fno-warn-missing-signatures #-}
 
 -- | Primitive sequential combinators that work on flat, unlifted arrays.
 --
@@ -161,9 +162,9 @@ repSel2 _               = ()
 
 
 -- Selector Representations ---------------------------------------------------
-type SelRep2            = ()
-mkSelRep2 tags          = ()
-indicesSelRep2 tags _   = tagsToIndices2 tags
+type SelRep2             = ()
+mkSelRep2 _              = ()
+indicesSelRep2 tags _    = tagsToIndices2 tags
 elementsSelRep2_0 tags _ = count tags 0
 elementsSelRep2_1 tags _ = count tags 1
 
index 57ff220..58883dc 100644 (file)
@@ -1,3 +1,4 @@
+{-# OPTIONS -Wall -fno-warn-orphans -fno-warn-missing-signatures #-}
 -- | Interface to operations on segmented unlifted arrays.
 module Data.Array.Parallel.Unlifted.Sequential.Segmented (
 
index 1e12936..f8c6fb7 100644 (file)
@@ -1,3 +1,4 @@
+{-# OPTIONS -Wall -fno-warn-orphans -fno-warn-missing-signatures #-}
 -- | Scatter Segment Descriptors
 module Data.Array.Parallel.Unlifted.Sequential.Segmented.USSegd (
         -- * Types
@@ -16,6 +17,7 @@ module Data.Array.Parallel.Unlifted.Sequential.Segmented.USSegd (
         lengthUSSegd,
         lengthsUSSegd, indicesUSSegd,
         sourcesUSSegd, startsUSSegd,
+        usegdUSSegd,
         getSegOfUSSegd,
         
         -- * Operators
@@ -157,8 +159,8 @@ usegdUSSegd   = ussegd_usegd
 --   Get the length, segment index, starting index, and source id of a segment.
 getSegOfUSSegd :: USSegd -> Int -> (Int, Int, Int, Int)
 getSegOfUSSegd (USSegd starts sources usegd) ix
- = let  (length, index) = getSegOfUSegd usegd ix
-   in   ( length
+ = let  (len, index) = getSegOfUSegd usegd ix
+   in   ( len
         , index
         , starts  V.! ix
         , sources V.! ix)
index 74b0171..6ee42a8 100644 (file)
@@ -1,3 +1,4 @@
+{-# OPTIONS -Wall -fno-warn-orphans -fno-warn-missing-signatures #-}
 -- | Segment Descriptors
 module Data.Array.Parallel.Unlifted.Sequential.Segmented.USegd (
   -- * Types
@@ -66,7 +67,7 @@ mkUSegd = USegd
 --   comparing the rebuilt ones against the originals.
 validUSegd :: USegd -> Bool
 {-# INLINE validUSegd #-}
-validUSegd usegd@(USegd lengths indices elems)
+validUSegd usegd@(USegd lengths _ _)
         = usegd == lengthsToUSegd lengths
 
 
index bd8a4f0..19fed8f 100644 (file)
@@ -1,3 +1,4 @@
+{-# OPTIONS -Wall -fno-warn-orphans -fno-warn-missing-signatures #-}
 -- | Segment descriptors for virtual arrays.
 module Data.Array.Parallel.Unlifted.Sequential.Segmented.UVSegd (
         -- * Types
@@ -162,8 +163,8 @@ lengthsUVSegd (UVSegd vsegids ussegd)
 getSegOfUVSegd :: UVSegd -> Int -> (Int, Int, Int)
 {-# INLINE getSegOfUVSegd #-}
 getSegOfUVSegd (UVSegd vsegids ussegd) ix
- = let  (length, _index, start, source) = getSegOfUSSegd ussegd (vsegids V.! ix)
-   in   (length, start, source)
+ = let  (len, _index, start, source) = getSegOfUSSegd ussegd (vsegids V.! ix)
+   in   (len, start, source)
 
    
 -- Operators ------------------------------------------------------------------
@@ -258,7 +259,7 @@ appendUVSegd (UVSegd vsegids1 ussegd1) pdatas1
         vsegids2' = V.map (+ lengthUSSegd ussegd1) vsegids2
         
         -- append the vsegids
-        vsegids'  = vsegids1 V.++ vsegids2'
+        vsegids'  = vsegids1' V.++ vsegids2'
 
         -- All data from the source arrays goes into the result
         ussegd'   = appendUSSegd ussegd1 pdatas1