cover struct width $bits edge case

9036bbab · Zachary Snow · 4cf65dd4 · 9036bbab
Commit 9036bbab authored Feb 09, 2020 by Zachary Snow
Show whitespace changes
Inline Side-by-side

Showing with 5 additions and 0 deletions

src/Convert/DimensionQuery.hs
+5 -0

No files found.
--- 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)