msyds/haskell-wasm
1
0
Fork 0
forked from GitHub/haskell-wasm
Code Pull Requests Activity

fix binary generation

Browse Source
This commit is contained in:
Ilya Rezvov
2018-05-22 18:47:10 -07:00
parent ba6f26b06d
commit 05ad97a30e
4 changed files with 35 additions and 31 deletions
Download Patch File Download Diff File Expand all files Collapse all files
src/Language/Wasm/Binary.hs
+5 -5
View File
@@ -295,7 +295,7 @@ instance Serialize Index where
get = Index <$> getULEB128 32
instance Serialize MemArg where
put (MemArg align offset) = putULEB128 align >> putULEB128 offset
put MemArg { align, offset } = putULEB128 align >> putULEB128 offset
get = MemArg <$> getULEB128 32 <*> getULEB128 32
instance Serialize (Instruction Natural) where
@@ -309,13 +309,13 @@ instance Serialize (Instruction Natural) where
putWord8 0x03
putResultType result
putExpression body
put If {result, true, false = []} = do
put If {resultType, true, false = []} = do
putWord8 0x04
putResultType result
putResultType resultType
putExpression true
put If {result, true, false} = do
put If {resultType, true, false} = do
putWord8 0x04
putResultType result
putResultType resultType
mapM_ put true
putWord8 0x05 -- ELSE
putExpression false