From a0bdcae94a403db22d1a709b8720364547727604 Mon Sep 17 00:00:00 2001 From: Ilya Rezvov Date: Wed, 23 May 2018 11:48:45 -0700 Subject: [PATCH] fix memarg binary parsing --- src/Language/Wasm/Binary.hs | 5 ++++- 1 file changed, 4 insertions(+), 1 deletion(-) diff --git a/src/Language/Wasm/Binary.hs b/src/Language/Wasm/Binary.hs index 39c3f05..363415f 100644 --- a/src/Language/Wasm/Binary.hs +++ b/src/Language/Wasm/Binary.hs @@ -296,7 +296,10 @@ instance Serialize Index where instance Serialize MemArg where put MemArg { align, offset } = putULEB128 align >> putULEB128 offset - get = MemArg <$> getULEB128 32 <*> getULEB128 32 + get = do + align <- getULEB128 32 + offset <- getULEB128 32 + return $ MemArg { align, offset } instance Serialize (Instruction Natural) where put Unreachable = putWord8 0x00