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

convert needless patterns to concats

This commit is contained in:
Zachary Snow 2019-09-02 22:35:36 -04:00
parent 1f7c70dfe1
commit 97fda59c51
1 changed files with 3 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
src/Convert/Struct.hs
View File

@ -445,7 +445,9 @@ convertAsgn structs types (lhs, expr) =
(Implicit Unspecified [], Bits (Right e')) (Implicit Unspecified [], Bits (Right e'))
where e' = snd $ convertSubExpr e where e' = snd $ convertSubExpr e
convertSubExpr (Pattern items) = convertSubExpr (Pattern items) =
(Implicit Unspecified [], Pattern items') if all (== Nothing) $ map fst items'
then (Implicit Unspecified [], Concat $ map snd items')
else (Implicit Unspecified [], Pattern items')
where where
items' = map mapItem items items' = map mapItem items
mapItem (mx, e) = (mx, snd $ convertSubExpr e) mapItem (mx, e) = (mx, snd $ convertSubExpr e)