Check for nullPtr when converting foreign ptr to an array
commit244926bffe30867fe98dac7349ae29f903fdcc4d
authoradithyaov <adithya@composewell.com>
dateWed 1 Dec 2021, 10:07 (5 years ago)
parent25532f1
src/Streamly/Internal/Data/Array/Foreign/Mut/Type.hs+2
@@ -410,6 +410,8 @@ fromForeignPtrUnsafe ::
410410 Storable a =>
411411#endif
412412 ForeignPtr a -> Ptr a -> Ptr a -> Array a
413+fromForeignPtrUnsafe (ForeignPtr start _) _ _
414+ | Ptr start == nullPtr = nil
413415fromForeignPtrUnsafe fp@(ForeignPtr start contents) end bound =
414416 assert (unsafeForeignPtrToPtr fp <= end && end <= bound)
415417 (Array (fptrToArrayContents contents) (Ptr start) end bound)