luke
/
sv2v
mirror of https://github.com/zachjs/sv2v.git
1
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity

packed array conversion packs any unsupported unpacked dimensions

This commit is contained in:
Zachary Snow 2019-09-01 18:38:55 -04:00
parent e80f880f43
commit 704e867c0c
1 changed files with 8 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
src/Convert/PackedArray.hs
View File

@ -41,14 +41,16 @@ convertDescription =
-- collects and converts multi-dimensional packed-array declarations
traverseDeclM :: Decl -> State Info Decl
traverseDeclM (Variable Local t ident a me) = do
t' <- traverseDeclM' t ident
return $ Variable Local t' ident a me
traverseDeclM (Variable dir t ident a me) = do
let (tf, rs) = typeRanges t
let t' = tf $ a ++ rs
t'' <- traverseDeclM' t' ident
return $ Variable dir t'' ident [] me
if dir /= Local || (rs /= [] && a /= [])
then do
let t' = tf $ a ++ rs
t'' <- traverseDeclM' t' ident
return $ Variable dir t'' ident [] me
else do
t' <- traverseDeclM' t ident
return $ Variable dir t' ident a me
traverseDeclM (Parameter t ident e) = do
t' <- traverseDeclM' t ident
return $ Parameter t' ident e