GitHub/haskell-wasm
1
0
Fork 1
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

fix mem arg parsing

Browse Source
This commit is contained in:
Ilya Rezvov
2018-02-19 18:48:50 -08:00
parent 6a7b82086a
commit 55a6b482ef
2 changed files with 2 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files
src/Language/Wasm/Binary.hs
+1 -1
View File
@@ -267,7 +267,7 @@ instance Serialize Index where
get = Index <$> getULEB128 get = Index <$> getULEB128
instance Serialize MemArg where instance Serialize MemArg where
put (MemArg offset align) = putULEB128 align >> putULEB128 offset put (MemArg align offset) = putULEB128 align >> putULEB128 offset
get = MemArg <$> getULEB128 <*> getULEB128 get = MemArg <$> getULEB128 <*> getULEB128
instance Serialize Instruction where instance Serialize Instruction where
tests/Test.hs
+1 -1
View File
@@ -41,7 +41,7 @@ main = do
let Right mod = Parser.parseModule <$> Lexer.scanner content let Right mod = Parser.parseModule <$> Lexer.scanner content
let Right mod' = Binary.decodeModuleLazy $ Binary.dumpModuleLazy mod let Right mod' = Binary.decodeModuleLazy $ Binary.dumpModuleLazy mod
return $ testCase ("Dump module to binary and parse back: " ++ file) $ return $ testCase ("Dump module to binary and parse back: " ++ file) $
assertBool "Module matched" $ mod == mod' assertEqual "Module matched" mod mod'
defaultMain $ testGroup "tests" [ defaultMain $ testGroup "tests" [
testGroup "Syntax parsing" syntaxTestCases, testGroup "Syntax parsing" syntaxTestCases,
testGroup "Binary format" binaryTestCases testGroup "Binary format" binaryTestCases