luke
/
sv2v
mirror of https://github.com/zachjs/sv2v.git
1
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity

simplify folded procedural branches

This commit is contained in:
Zachary Snow 2020-05-05 18:50:20 -04:00
parent fc9b0b5978
commit 9e7768b66a
1 changed files with 2 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
src/Convert/Traverse.hs
View File

@ -231,6 +231,8 @@ traverseSinglyNestedStmtsM fullMapper = cs
cs (DoWhile e stmt) = fullMapper stmt >>= return . DoWhile e
cs (Forever stmt) = fullMapper stmt >>= return . Forever
cs (Foreach x vars stmt) = fullMapper stmt >>= return . Foreach x vars
cs (If NoCheck (Number "1") s _) = fullMapper s
cs (If NoCheck (Number "0") _ s) = fullMapper s
cs (If u e s1 s2) = do
s1' <- fullMapper s1
s2' <- fullMapper s2