Skip to content

S
sv2v
Commit 73b11b36 by Zachary Snow
Options

move interface conversion assign bindings to be after inlining

parent e187de56
Showing with 1 additions and 1 deletions
src/Convert/Interface.hs
...@@ -162,7 +162,7 @@ lookupType _ expr = error $ "lookupType on fancy expr: " ++ show expr ...@@ -162,7 +162,7 @@ lookupType _ expr = error $ "lookupType on fancy expr: " ++ show expr
inlineInterface :: Interface -> (Identifier, [PortBinding]) -> [ModuleItem] inlineInterface :: Interface -> (Identifier, [PortBinding]) -> [ModuleItem]
inlineInterface (ports, items) (instanceName, instancePorts) = inlineInterface (ports, items) (instanceName, instancePorts) =
(:) (MIPackageItem $ Comment $ "expanded instance: " ++ instanceName) $ (:) (MIPackageItem $ Comment $ "expanded instance: " ++ instanceName) $
(++) portBindings $ flip (++) portBindings $
map (traverseNestedModuleItems removeModport) $ map (traverseNestedModuleItems removeModport) $
map (traverseNestedModuleItems removeMIDeclDir) $ map (traverseNestedModuleItems removeMIDeclDir) $
map (prefixModuleItems prefix) $ map (prefixModuleItems prefix) $
......
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