rewrote PackedArray to properly handle the various scenarios

src/Convert/SplitPortDecl.hs

@@ -24,5 +24,5 @@ splitPortDecl (orig @ (MIDecl (Variable _ (Implicit _) _ _ _))) = [orig]
 splitPortDecl (MIDecl (Variable d t x a me)) =
     [ MIDecl $ Variable d     (Implicit r) x a Nothing
     , MIDecl $ Variable Local t            x a me      ]
-    where (_, r) = typeDims t
+    where (_, r) = typeRanges t
 splitPortDecl other = [other]

src/Convert/Traverse.hs

@@ -24,6 +24,9 @@ module Convert.Traverse
 , traverseExprsM
 , traverseExprs
 , collectExprsM
+, traverseLHSsM
+, traverseLHSs
+, collectLHSsM
 ) where
 
 import Data.Maybe (fromJust)
@@ -259,3 +262,17 @@ traverseExprs :: Mapper Expr -> Mapper ModuleItem
 traverseExprs = unmonad traverseExprsM
 collectExprsM :: Monad m => CollectorM m Expr -> CollectorM m ModuleItem
 collectExprsM = collectify traverseExprsM
+
+traverseLHSsM :: Monad m => MapperM m LHS -> MapperM m ModuleItem
+traverseLHSsM mapper item =
+    traverseStmtsM (traverseStmtLHSsM mapper) item >>= traverseModuleItemLHSsM
+    where
+        traverseModuleItemLHSsM (Assign lhs expr) = do
+            lhs' <- mapper lhs
+            return $ Assign lhs' expr
+        traverseModuleItemLHSsM other = return other
+
+traverseLHSs :: Mapper LHS -> Mapper ModuleItem
+traverseLHSs = unmonad traverseLHSsM
+collectLHSsM :: Monad m => CollectorM m LHS -> CollectorM m ModuleItem
+collectLHSsM = collectify traverseLHSsM

src/Language/SystemVerilog/AST.hs

@@ -19,7 +19,7 @@ module Language.SystemVerilog.AST
   , Case
   , Range
   , GenCase
-  , typeDims
+  , typeRanges
   ) where
 
 import Data.List
@@ -94,14 +94,14 @@ instance Show Type where
       showVal :: (Identifier, Maybe Expr) -> String
       showVal (x, e) = x ++ (showAssignment e)
 
-typeDims :: Type -> ([Range] -> Type, [Range])
-typeDims (Reg      r) = (Reg     , r)
-typeDims (Wire     r) = (Wire    , r)
-typeDims (Logic    r) = (Logic   , r)
-typeDims (Alias  t r) = (Alias  t, r)
-typeDims (Implicit r) = (Implicit, r)
-typeDims (IntegerT  ) = (error "ranges cannot be applied to IntegerT", [])
-typeDims (Enum t v r) = (Enum t v, r)
+typeRanges :: Type -> ([Range] -> Type, [Range])
+typeRanges (Reg      r) = (Reg     , r)
+typeRanges (Wire     r) = (Wire    , r)
+typeRanges (Logic    r) = (Logic   , r)
+typeRanges (Alias  t r) = (Alias  t, r)
+typeRanges (Implicit r) = (Implicit, r)
+typeRanges (IntegerT  ) = (error "ranges cannot be applied to IntegerT", [])
+typeRanges (Enum t v r) = (Enum t v, r)
 
 data Decl
   = Parameter            Type Identifier Expr