fixed PackedArray conversion assigning to reg for Local arrays

f1ac4fc0 · Zachary Snow · 00d12c7a · f1ac4fc0
Commit f1ac4fc0 authored Apr 01, 2019 by Zachary Snow
Hide whitespace changes
Inline Side-by-side

Showing with 2 additions and 1 deletions

src/Convert/PackedArray.hs
+2 -1

No files found.
--- a/src/Convert/PackedArray.hs
+++ b/src/Convert/PackedArray.hs
@@ -175,7 +175,8 @@ flattenModuleItem info (origDecl @ (MIDecl (Variable dir t ident a me))) =
    where
        Info typeDims portDirs idxUses seqUses = info
        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)
        (tf, rs) = typeRanges t
        flipDecl = MIDecl $ Variable dir (tf $          tail rs) ident (a ++ [head rs]) me