luke
/
sv2v
mirror of https://github.com/zachjs/sv2v.git
1
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity

remove legacy ordered binding handling in logic conversion

This commit is contained in:
Zachary Snow 2021-05-31 16:38:29 -04:00
parent 13c84e4c7a
commit 69bc64ed15
1 changed files with 5 additions and 16 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

21
src/Convert/Logic.hs
View File

@ -130,18 +130,17 @@ traverseModuleItem ports scopes =
where
comment = MIPackageItem $ Decl $ CommentDecl
"rewrote reg-to-output bindings"
(bindings', newItemsList) =
unzip $ map (uncurry fixBinding) $ zip bindings [0..]
(bindings', newItemsList) = unzip $ map fixBinding bindings
newItems = concat newItemsList
fixBinding :: PortBinding -> Int -> (PortBinding, [ModuleItem])
fixBinding (portName, expr) portIdx =
fixBinding :: PortBinding -> (PortBinding, [ModuleItem])
fixBinding (portName, expr) =
if not outputBound || not usesReg
then ((portName, expr), [])
else ((portName, tmpExpr), items)
where
outputBound = portDir == Just Output
usesReg = Just True == fmap isReg (exprToLHS expr)
portDir = lookupPortDir portName portIdx
portDir = maybeModulePorts >>= lookup portName
tmp = "sv2v_tmp_" ++ instanceName ++ "_" ++ portName
tmpExpr = Ident tmp
t = Net (NetType TWire) Unspecified
@ -155,17 +154,7 @@ traverseModuleItem ports scopes =
error $ "bad non-lhs, non-net expr "
++ show expr ++ " connected to output port "
++ portName ++ " of " ++ instanceName
lookupPortDir :: Identifier -> Int -> Maybe Direction
lookupPortDir "" portIdx =
case Map.lookup moduleName ports of
Nothing -> Nothing
Just l -> if portIdx >= length l
then Nothing
else Just $ snd $ l !! portIdx
lookupPortDir portName _ =
case Map.lookup moduleName ports of
Nothing -> Nothing
Just l -> lookup portName l
maybeModulePorts = Map.lookup moduleName ports
fixModuleItem other = other
traverseDeclM :: Decl -> ST Decl