byteslice-0.2.15.0: src-no-ghc-cstrlen/Cstrlen.hs

{-# LANGUAGE MagicHash #-}
{-# LANGUAGE TypeFamilies #-}
{-# LANGUAGE UnliftedFFITypes #-}

module Cstrlen
  ( cstringLength#
  ) where

import GHC.Exts (Addr#, Int#)

foreign import ccall unsafe "strlen" c_strlen :: Addr# -> Int#

cstringLength# :: Addr# -> Int#
cstringLength# = c_strlen