cover struct width $bits edge case

2020-02-09 19:07:12 -05:00 · 2020-02-09 19:07:12 -05:00 · 9036bbabe4
parent 4cf65dd4e2
commit 9036bbabe4
1 changed files with 5 additions and 0 deletions
--- a/src/Convert/DimensionQuery.hs
+++ b/src/Convert/DimensionQuery.hs
@ -114,6 +114,11 @@ convertBits (Left t) =
        IntegerVector _ _ rs -> dimensionsSize rs
        Implicit        _ 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 ->
            BinOp Mul
                (dimensionsSize rs)