luke/sv2v
1
0
Fork 0
mirror of https://github.com/zachjs/sv2v.git synced 2026-09-02 10:27:21 +02:00
Code Issues Packages Projects Releases Wiki Activity

support for statement labels and basic fork-join

Browse Source
This commit is contained in:
Zachary Snow
2019-09-30 23:03:55 -04:00
parent d57c967090
commit b7959c7aa2
11 changed files with 171 additions and 131 deletions
Download Patch File Download Diff File Expand all files Collapse all files
src/Convert/BlockDecl.hs
+2 -2
View File
@@ -20,8 +20,8 @@ convert =
$ traverseStmts $ convertStmt
convertStmt :: Stmt -> Stmt
convertStmt (Block name decls stmts) =
Block name decls' stmts'
convertStmt (Block Seq name decls stmts) =
Block Seq name decls' stmts'
where
splitDecls = map splitDecl decls
decls' = map fst splitDecls