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

simplify folded procedural branches

Browse Source
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
Download Patch File Download Diff File Expand all files Collapse all files
src/Convert/Traverse.hs
+2
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