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

cover struct width $bits edge case

This commit is contained in:
Zachary Snow 2020-02-09 19:07:12 -05:00
parent 4cf65dd4e2
commit 9036bbabe4
1 changed files with 5 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
src/Convert/DimensionQuery.hs
View File

@ -114,6 +114,11 @@ convertBits (Left t) =
IntegerVector _ _ rs -> dimensionsSize rs IntegerVector _ _ rs -> dimensionsSize rs
Implicit _ rs -> dimensionsSize rs Implicit _ rs -> dimensionsSize rs
Net _ _ rs -> dimensionsSize rs Net _ _ rs -> dimensionsSize rs
Struct _ fields rs ->
BinOp Mul
(dimensionsSize rs)
(foldl (BinOp Add) (Number "0") fieldSizes)
where fieldSizes = map (DimsFn FnBits . Left . fst) fields
UnpackedType t' rs -> UnpackedType t' rs ->
BinOp Mul BinOp Mul
(dimensionsSize rs) (dimensionsSize rs)