diff options
| author | Joe Crayne <joe@jerkface.net> | 2018-10-30 19:52:50 -0400 |
|---|---|---|
| committer | Joe Crayne <joe@jerkface.net> | 2018-10-30 19:53:36 -0400 |
| commit | 9a8a11acafe6110b9a243c5c42a3db854d8213dc (patch) | |
| tree | e3690d78daa60cdca7c4a463104aed3b6a20dc0d | |
| parent | f20b3535985899815dbf0f81da65f202b08c7745 (diff) | |
Zero-fill initial xd3_source object.
| -rw-r--r-- | haskell/Data/VCDIFF/XDelta.hsc | 1 |
1 files changed, 1 insertions, 0 deletions
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 => | |||
| 51 | newSource nm blksz maxwinsz = do | 51 | newSource nm blksz maxwinsz = do |
| 52 | let bsname = encodeUtf8 $ T.pack nm | 52 | let bsname = encodeUtf8 $ T.pack nm |
| 53 | src <- newPinnedByteArray $ 1 + B.length bsname + #{const sizeof(xd3_source)} | 53 | src <- newPinnedByteArray $ 1 + B.length bsname + #{const sizeof(xd3_source)} |
| 54 | fillByteArray src 0 #{const sizeof(xd3_source)} (0 :: Word8) | ||
| 54 | nptr <- writeStringAt src #{const sizeof(xd3_source)} bsname | 55 | nptr <- writeStringAt src #{const sizeof(xd3_source)} bsname |
| 55 | writeAtByte src (#{off xd3_source, blksize }) blksz | 56 | writeAtByte src (#{off xd3_source, blksize }) blksz |
| 56 | writeAtByte src (#{off xd3_source, name }) nptr | 57 | writeAtByte src (#{off xd3_source, name }) nptr |