module HaskellWorks.Prim.Bits.Fast
  ( pdep64
  , pdep32
  , pext64
  , pext32
  ) where

import Data.Word

foreign import ccall unsafe "bits.h" fast_pdep64 :: Word64 -> Word64 -> Word64

pdep64 :: Word64 -> Word64 -> Word64
pdep64 = fast_pdep64
{-# INLINE pdep64 #-}

foreign import ccall unsafe "bits.h" fast_pdep32 :: Word32 -> Word32 -> Word32

pdep32 :: Word32 -> Word32 -> Word32
pdep32 = fast_pdep32
{-# INLINE pdep32 #-}

foreign import ccall unsafe "bits.h" fast_pext64 :: Word64 -> Word64 -> Word64

pext64 :: Word64 -> Word64 -> Word64
pext64 = fast_pext64
{-# INLINE pext64 #-}

foreign import ccall unsafe "bits.h" fast_pext32 :: Word32 -> Word32 -> Word32

pext32 :: Word32 -> Word32 -> Word32
pext32 = fast_pext32
{-# INLINE pext32 #-}