From 9a8a11acafe6110b9a243c5c42a3db854d8213dc Mon Sep 17 00:00:00 2001
From: Joe Crayne <joe@jerkface.net>
Date: Tue, 30 Oct 2018 19:52:50 -0400
Subject: Zero-fill initial xd3_source object.

---
 haskell/Data/VCDIFF/XDelta.hsc | 1 +
 1 file changed, 1 insertion(+)

diff --git a/haskell/Data/VCDIFF/XDelta.hsc b/haskell/Data/VCDIFF/XDelta.hsc
index 6e32494..b406c1d 100644
--- a/haskell/Data/VCDIFF/XDelta.hsc
+++ b/haskell/Data/VCDIFF/XDelta.hsc
@@ -51,6 +51,7 @@ newSource :: PrimMonad m =>
 newSource nm blksz maxwinsz = do
     let bsname = encodeUtf8 $ T.pack nm
     src <- newPinnedByteArray $ 1 + B.length bsname + #{const sizeof(xd3_source)}
+    fillByteArray src 0 #{const sizeof(xd3_source)} (0 :: Word8)
     nptr <- writeStringAt src #{const sizeof(xd3_source)} bsname
     writeAtByte src (#{off xd3_source, blksize    }) blksz
     writeAtByte src (#{off xd3_source, name       }) nptr
-- 
cgit v1.2.3