diff options
| author | Hideyuki Tanaka <tanaka.hideyuki@gmail.com> | 2010-05-30 17:19:43 +0900 |
|---|---|---|
| committer | Hideyuki Tanaka <tanaka.hideyuki@gmail.com> | 2010-05-30 17:19:43 +0900 |
| commit | d43921823ea5a20f0677410e965a54dd19c2effe (patch) | |
| tree | 18c049c0049b8967389754d22ef8e6603393c056 /haskell/src/Data/MessagePack | |
| parent | 6b5b76b0c908c338dbc4aaa86aa42722da4adca3 (diff) | |
| download | msgpack-python-d43921823ea5a20f0677410e965a54dd19c2effe.tar.gz | |
fix initialize pointer
Diffstat (limited to 'haskell/src/Data/MessagePack')
| -rw-r--r-- | haskell/src/Data/MessagePack/Base.hsc | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/haskell/src/Data/MessagePack/Base.hsc b/haskell/src/Data/MessagePack/Base.hsc index 72c421c..8c7b9f5 100644 --- a/haskell/src/Data/MessagePack/Base.hsc +++ b/haskell/src/Data/MessagePack/Base.hsc @@ -560,6 +560,7 @@ unpackObject z dat = allocaBytes (#size msgpack_object) $ \ptr -> BS.useAsCStringLen dat $ \(str, len) -> alloca $ \poff -> do + poke poff 0 ret <- msgpack_unpack str (fromIntegral len) poff z ptr case ret of (#const MSGPACK_UNPACK_SUCCESS) -> do |