Skip to content

S
sv2v
Commit f97e069e by Zachary Snow
Options

fix DT parsing of ports with implicit types

parent 9ec9435c
Showing with 2 additions and 2 deletions
src/Language/SystemVerilog/Parser/ParseDecl.hs
...@@ -185,8 +185,6 @@ finalize (dir, typ, trips) = ...@@ -185,8 +185,6 @@ finalize (dir, typ, trips) =
-- internal; entrypoint of the critical portion of our parser -- internal; entrypoint of the critical portion of our parser
parseDTsAsComponents :: [DeclToken] -> [Component] parseDTsAsComponents :: [DeclToken] -> [Component]
parseDTsAsComponents [] = [] parseDTsAsComponents [] = []
parseDTsAsComponents [DTDir dir, DTIdent ident] =
[(dir, Implicit [], [(ident, [], Nothing)])]
parseDTsAsComponents l0 = parseDTsAsComponents l0 =
component : parseDTsAsComponents l4 component : parseDTsAsComponents l4
where where
...@@ -239,6 +237,8 @@ takeDir rest = (Local, rest) ...@@ -239,6 +237,8 @@ takeDir rest = (Local, rest)
takeType :: [DeclToken] -> ([Range] -> Type, [DeclToken]) takeType :: [DeclToken] -> ([Range] -> Type, [DeclToken])
takeType (DTType tf : rest) = (tf , rest) takeType (DTType tf : rest) = (tf , rest)
takeType (DTIdent tn : DTComma : rest) = (Implicit, DTIdent tn : DTComma : rest)
takeType (DTIdent tn : [ ]) = (Implicit, DTIdent tn : [ ])
takeType (DTIdent tn : rest) = (Alias tn, rest) takeType (DTIdent tn : rest) = (Alias tn, rest)
takeType rest = (Implicit, rest) takeType rest = (Implicit, rest)
......
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