From 4e34217472b5ac84927dd229db55324356f8bf61 Mon Sep 17 00:00:00 2001 From: Zachary Snow Date: Tue, 23 Apr 2019 15:37:47 -0400 Subject: [PATCH] struct conversion handles decls with unpacked dimensions --- src/Convert/Struct.hs | 4 +++- 1 file changed, 3 insertions(+), 1 deletion(-) diff --git a/src/Convert/Struct.hs b/src/Convert/Struct.hs index f26c139..73f3c05 100644 --- a/src/Convert/Struct.hs +++ b/src/Convert/Struct.hs @@ -159,7 +159,9 @@ collectTFArgsM _ = return () traverseDeclM :: Decl -> State Types Decl traverseDeclM origDecl = do case origDecl of - Variable _ t x _ _ -> modify $ Map.insert x t + Variable _ t x a _ -> do + let (tf, rs) = typeRanges t + modify $ Map.insert x (tf $ a ++ rs) Parameter t x _ -> modify $ Map.insert x t Localparam t x _ -> modify $ Map.insert x t return origDecl