From 75e2fba597168d3f584273c6e5e51af800c95cb6 Mon Sep 17 00:00:00 2001 From: Zachary Snow Date: Mon, 15 Apr 2019 23:28:03 -0400 Subject: [PATCH] explicitly size literals in converted default struct patterns --- src/Convert/Struct.hs | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/src/Convert/Struct.hs b/src/Convert/Struct.hs index 0f3d493..8fe1406 100644 --- a/src/Convert/Struct.hs +++ b/src/Convert/Struct.hs @@ -213,8 +213,8 @@ convertAsgn structs types (lhs, expr) = where e' = convertExpr (IntegerVector t sg rs) e convertExpr (Struct (Packed sg) fields (_:rs)) (Bit e _) = convertExpr (Struct (Packed sg) fields rs) e - convertExpr (Struct (Packed _) fields _) (Pattern [(Just "default", e)]) = - Concat $ take (length fields) (repeat e) + convertExpr (t @ (Struct (Packed _) fields _)) (Pattern [(Just "default", e)]) = + convertExpr t $ Pattern $ take (length fields) (repeat (Nothing, e)) convertExpr (Struct (Packed sg) fields []) (Pattern itemsOrig) = if length items /= length fields then error $ "struct pattern " ++ show items ++