hw-prim-bits (empty) → 0.1.0.0

raw patch · 10 files changed

+149/−0 lines, 10 filesdep +basedep +criteriondep +hw-prim-bitssetup-changed

Dependencies added: base, criterion, hw-prim-bits, vector

Files

• LICENSE +30/−0
• README.md +1/−0
• Setup.hs +2/−0
• app/Main.hs +9/−0
• bench/Main.hs +24/−0
• cbits/bits.c +15/−0
• cbits/bits.h +3/−0
• hw-prim-bits.cabal +58/−0
• src/HaskellWorks/Prim/Bits.hs +5/−0
• test/Spec.hs +2/−0

@@ -0,0 +1,30 @@+Copyright Author name here (c) 2017++All rights reserved.++Redistribution and use in source and binary forms, with or without+modification, are permitted provided that the following conditions are met:++    * Redistributions of source code must retain the above copyright+      notice, this list of conditions and the following disclaimer.++    * Redistributions in binary form must reproduce the above+      copyright notice, this list of conditions and the following+      disclaimer in the documentation and/or other materials provided+      with the distribution.++    * Neither the name of Author name here nor the names of other+      contributors may be used to endorse or promote products derived+      from this software without specific prior written permission.++THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS+"AS IS" AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT+LIMITED TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR+A PARTICULAR PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT+OWNER OR CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL,+SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT+LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE,+DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY+THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT+(INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE+OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.

@@ -0,0 +1,1 @@+# hw-prim-bits

@@ -0,0 +1,2 @@+import Distribution.Simple+main = defaultMain

@@ -0,0 +1,9 @@+module Main where++import Data.Monoid ((<>))+import HaskellWorks.Prim.Bits++main :: IO ()+main = do+  let result = pdep64 9 9+  putStrLn $ "Result: " <> show result

@@ -0,0 +1,24 @@+module Main where++import Criterion.Main+import Data.Bits+import Data.Monoid            ((<>))+import Data.Word+import HaskellWorks.Prim.Bits++import qualified Data.Vector.Storable as DVS++setup :: IO ()+setup = return ()++benchPdep :: [Benchmark]+benchPdep =+  [ env setup $ \bv -> bgroup "bits"+    [ bench "pdep64"    (whnf (pdep64 0) (0 :: Word64))+    , bench "popCount"  (whnf popCount   (0 :: Word64))+    , bench "sin"       (whnf sin        (0 :: Double))+    ]+  ]++main :: IO ()+main = defaultMain benchPdep

@@ -0,0 +1,15 @@+#include <x86intrin.h>++unsigned long long pdep64(+  unsigned long long arga,+  unsigned long long argb)+{+  unsigned long long result;++  __asm__ __volatile__("pdepl  %%ecx,%%ebx,%%eax"+                       :"=a"(result)+                       :"a"(result), "b"(arga), "c"(argb)+                       );++  return result;+}

@@ -0,0 +1,3 @@+unsigned long long pdep64(+  unsigned long long,+  unsigned long long);

@@ -0,0 +1,58 @@+name:                hw-prim-bits+version:             0.1.0.0+synopsis:            Primitive support for bit manipulation+description:         Please see README.md+homepage:            https://github.com/githubuser/hw-prim-bits#readme+license:             BSD3+license-file:        LICENSE+author:              Author name here+maintainer:          example@example.com+copyright:           2017 Author name here+category:            Web+build-type:          Simple+extra-source-files:  README.md+cabal-version:       >= 1.10++library+  hs-source-dirs:       src+  exposed-modules:      HaskellWorks.Prim.Bits+  build-depends:        base >= 4.7 && < 5+  default-language:     Haskell2010+  C-sources:            cbits/bits.c+  Include-dirs:         cbits+  Install-includes:     bits.h++executable hw-prim-bits-exe+  hs-source-dirs:      app+  main-is:             Main.hs+  ghc-options:         -threaded -rtsopts -with-rtsopts=-N+  build-depends:       base+                     , hw-prim-bits+  default-language:    Haskell2010++test-suite hw-prim-bits-test+  type:                exitcode-stdio-1.0+  hs-source-dirs:      test+  main-is:             Spec.hs+  build-depends:       base+                     , hw-prim-bits+  ghc-options:         -threaded -rtsopts -with-rtsopts=-N+  default-language:    Haskell2010++benchmark bench+    Type: exitcode-stdio-1.0+    HS-Source-Dirs: bench+    Main-Is: Main.hs+    if flag(sse42)+      GHC-Options: -Wall -O2 -msse4.2+    else+      GHC-Options: -Wall -O2+    Default-Language: Haskell2010+    Build-Depends:      base                          >= 4          && < 5+                      , criterion+                      , hw-prim-bits+                      , vector++source-repository head+  type:     git+  location: https://github.com/githubuser/hw-prim-bits

@@ -0,0 +1,5 @@+module HaskellWorks.Prim.Bits where++import Data.Word++foreign import ccall unsafe "bits.h" pdep64 :: Word64 -> Word64 -> Word64

@@ -0,0 +1,2 @@+main :: IO ()+main = putStrLn "Test suite not yet implemented"