b3cad77 · streamly · git.iko.soy

455 -> Int

456 -> Array a

457 -> m (Array a)

458−reallocWith label allocSize reqSize arr = do

458+reallocWith label sizer reqSize arr = do

459 let oldSize = aEnd arr `minusPtr` unsafeForeignPtrToPtr (aStart arr)

460− newSize = allocSize oldSize

460+ newSize = sizer oldSize

461 safeSize = max newSize (oldSize + reqSize)

462 rounded = roundUpLargeArray safeSize

463 assert (newSize >= oldSize + reqSize || error badSize) (return ())

480 -> Array a

481 -> a

482 -> m (Array a)

483−snocWithRealloc allocSize arr x = do

483+snocWithRealloc sizer arr x = do

484 let elemSize = sizeOf (undefined :: a)

485− arr1 <- liftIO $ reallocWith "snocWith" allocSize elemSize arr

485+ arr1 <- liftIO $ reallocWith "snocWith" sizer elemSize arr

486 snocUnsafe arr1 x

487

488−-- | @snocWith newSize arr elem@ mutates @arr@ to append @elem@, the length of

488+-- | @snocWith sizer arr elem@ mutates @arr@ to append @elem@. The length of

489-- the array increases by 1.

490--

491-- If there is no reserved space available in @arr@ it is reallocated to a size

492−-- in bytes determined by the @newSize oldSize@ function, where @oldSize@ is

492+-- in bytes determined by the @sizer oldSizeBytes@ function, where

493−-- the original size of the array in bytes.

493+-- @oldSizeBytes@ is the original size of the array in bytes.

494--

495-- If the new array size is more than 'largeObjectThreshold' we automatically

496-- round it up to 'blockSize'.