luke/sv2v
1
0
Fork 0
mirror of https://github.com/zachjs/sv2v.git synced 2026-09-07 02:58:49 +02:00
Code Issues Packages Projects Releases Wiki Activity

fix interface conversion erroneously renaming colliding pattern names

Browse Source
This commit is contained in:
Zachary Snow
2021-06-23 21:39:15 -04:00
parent a15b0c735f
commit afc3ea435b
3 changed files with 31 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files
src/Convert/Interface.hs
+10 -1
View File
@@ -468,7 +468,16 @@ inlineInstance global ranges modportBindings items partName
case lookup (Bit expr Tag) exprReplacements of
Just resolved -> replaceArrTag (replaceExpr' local elt) resolved
Nothing -> Bit (replaceExpr' local expr) (replaceExpr' local elt)
replaceExpr' local expr =
replaceExpr' local (expr @ (Dot Ident{} _)) =
case lookup expr exprReplacements of
Just expr' -> expr'
Nothing -> checkExprResolution local expr $
traverseSinglyNestedExprs (replaceExprAny local) expr
replaceExpr' local (Ident x) =
checkExprResolution local (Ident x) (Ident x)
replaceExpr' local expr = replaceExprAny local expr
replaceExprAny :: Scopes Expr -> Expr -> Expr
replaceExprAny local expr =
case lookup expr exprReplacements of
Just expr' -> expr'
Nothing -> checkExprResolution local expr $