Skip to content

S
sv2v
Commit f1ac4fc0 by Zachary Snow
Options

fixed PackedArray conversion assigning to reg for Local arrays

parent 00d12c7a
Showing with 2 additions and 1 deletions
src/Convert/PackedArray.hs
...@@ -175,7 +175,8 @@ flattenModuleItem info (origDecl @ (MIDecl (Variable dir t ident a me))) = ...@@ -175,7 +175,8 @@ flattenModuleItem info (origDecl @ (MIDecl (Variable dir t ident a me))) =
where where
Info typeDims portDirs idxUses seqUses = info Info typeDims portDirs idxUses seqUses = info
duoUses = Set.intersection idxUses seqUses duoUses = Set.intersection idxUses seqUses
writeToFlatVariant = Map.lookup ident portDirs == Just Output portDir = Map.lookup ident portDirs
writeToFlatVariant = portDir == Just Output || portDir == Nothing
genItems = unflattener writeToFlatVariant ident (typeDims Map.! ident) genItems = unflattener writeToFlatVariant ident (typeDims Map.! ident)
(tf, rs) = typeRanges t (tf, rs) = typeRanges t
flipDecl = MIDecl $ Variable dir (tf $ tail rs) ident (a ++ [head rs]) me flipDecl = MIDecl $ Variable dir (tf $ tail rs) ident (a ++ [head rs]) me
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment