Skip to content

S
sv2v
Commit 9036bbab by Zachary Snow
Options

cover struct width $bits edge case

parent 4cf65dd4
Showing with 5 additions and 0 deletions
src/Convert/DimensionQuery.hs
...@@ -114,6 +114,11 @@ convertBits (Left t) = ...@@ -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)
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment