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

support inline module definitions

Browse Source
This commit is contained in:
Ilya Rezvov
2018-01-23 09:42:00 -08:00
parent 61c554d119
commit a200b5a62d
1 changed files with 6 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files
src/Language/Wasm/Parser.y
+6 -3
View File
@@ -646,7 +646,7 @@ signature_locals_body1 :: { (Maybe FuncType, [LocalType], [Instruction]) }
{ (Just $ prependFuncParams [ParamType (Just $2) $3] $ fromMaybe emptyFuncType $ t3fst $5, t3snd $5, t3thd $5) }
| 'result' list(valtype) ')' signature_locals_body
{ (Just $ prependFuncResults $2 $ fromMaybe emptyFuncType $ t3fst $4, t3snd $4, t3thd $4) }
| locals_body1 { (Nothing, fst $1, snd $1) }
| locals_body1 { (Nothing, fst $1, snd $1) }
locals_body :: { ([LocalType], [Instruction]) }
: ')' { ([], []) }
@@ -746,8 +746,11 @@ modulefields :: { Module }
| {- empty -} { emptyModule }
mod :: { Module }
: '(' 'module' modulefields ')' EOF { reverseModuleFields $3 }
| modulefields EOF { reverseModuleFields $1 }
: '(' mod1 { $2 }
mod1 :: { Module }
: 'module' modulefields ')' EOF { reverseModuleFields $2 }
| modulefield1 modulefields EOF { reverseModuleFields $ foldl' (flip appendModuleField) $2 $1 }
-- utils