diff options
| author | Ben Gamari <ben@smart-cactus.org> | 2020-10-23 14:16:58 -0400 |
|---|---|---|
| committer | Ben Gamari <ben@smart-cactus.org> | 2020-11-29 18:26:15 -0500 |
| commit | b3027eb0a1c1b3cedbb54b0fc8d0924283a7cd25 (patch) | |
| tree | 428241e11a6a5d15592964d049344b85d8160cf4 /compiler/GHC/Data/ByteArray.hs | |
| parent | f40b662b9ea555bab6e9729f4165eaca7021d322 (diff) | |
| download | haskell-wip/stringbuffer.tar.gz | |
StringBuffer: Rid it of ForeignPtrswip/stringbuffer
Bumps haddock submodule.
Diffstat (limited to 'compiler/GHC/Data/ByteArray.hs')
| -rw-r--r-- | compiler/GHC/Data/ByteArray.hs | 5 |
1 files changed, 5 insertions, 0 deletions
diff --git a/compiler/GHC/Data/ByteArray.hs b/compiler/GHC/Data/ByteArray.hs index 5121ed4a57..19591092fa 100644 --- a/compiler/GHC/Data/ByteArray.hs +++ b/compiler/GHC/Data/ByteArray.hs @@ -14,6 +14,7 @@ module GHC.Data.ByteArray , MutableByteArray , getMutableByteArray , unsafeMutableByteArrayContents + , sizeofMutableByteArray , newMutableByteArray , newPinnedMutableByteArray , copyByteArray @@ -92,6 +93,10 @@ newPinnedMutableByteArray (I# size) = IO $ \s -> case newPinnedByteArray# size s of (# s', mba #) -> (# s', MutableByteArray mba #) +sizeofMutableByteArray :: MutableByteArray -> Int +sizeofMutableByteArray (MutableByteArray mba) = + I# (sizeofMutableByteArray# mba) + copyByteArray :: ByteArray -- ^ source -> Int -- ^ source offset |