mirror of
https://github.com/zachjs/sv2v.git
synced 2026-08-30 17:31:40 +02:00
Zachary Snow
d88c516d33
- number literals are parsed rather than stored as strings - fix array query functions used on non-trivial number literals - more efficient expression simplification recursion - expanded constant folding scenarios
90 lines
3.1 KiB
Haskell
90 lines
3.1 KiB
Haskell
{- sv2v
|
|
- Author: Zachary Snow <[email protected]>
|
|
-
|
|
- Conversion of streaming concatenations.
|
|
-}
|
|
|
|
module Convert.Stream (convert) where
|
|
|
|
import Convert.Traverse
|
|
import Language.SystemVerilog.AST
|
|
|
|
convert :: [AST] -> [AST]
|
|
convert = map $ traverseDescriptions convertDescription
|
|
|
|
convertDescription :: Description -> Description
|
|
convertDescription (description @ Part{}) =
|
|
traverseModuleItems (traverseStmts traverseStmt) description
|
|
convertDescription other = other
|
|
|
|
streamerBlock :: Expr -> Expr -> (LHS -> Expr -> Stmt) -> LHS -> Expr -> Stmt
|
|
streamerBlock chunk size asgn output input =
|
|
Block Seq ""
|
|
[ Variable Local t inp [] input
|
|
, Variable Local t out [] Nil
|
|
, Variable Local (IntegerAtom TInteger Unspecified) idx [] Nil
|
|
]
|
|
[ For inits cmp incr stmt
|
|
, If NoCheck cmp2 stmt2 Null
|
|
, asgn output (Ident out)
|
|
]
|
|
where
|
|
lo = RawNum 0
|
|
hi = BinOp Sub size (RawNum 1)
|
|
t = IntegerVector TLogic Unspecified [(hi, lo)]
|
|
name = streamerBlockName chunk size
|
|
inp = name ++ "_inp"
|
|
out = name ++ "_out"
|
|
idx = name ++ "_idx"
|
|
-- main chunk loop
|
|
inits = Right [(LHSIdent idx, lo)]
|
|
cmp = BinOp Lt (Ident idx) base
|
|
incr = [(LHSIdent idx, AsgnOp Add, chunk)]
|
|
lhs = LHSRange (LHSIdent out) IndexedMinus (BinOp Sub hi (Ident idx), chunk)
|
|
expr = Range (Ident inp) IndexedPlus (Ident idx, chunk)
|
|
stmt = Asgn AsgnOpEq Nothing lhs expr
|
|
base = BinOp Mul (BinOp Div size chunk) chunk
|
|
-- final chunk loop
|
|
left = BinOp Sub size base
|
|
lhs2 = LHSRange (LHSIdent out) IndexedMinus (BinOp Sub hi base, left)
|
|
expr2 = Range (Ident inp) IndexedPlus (base, left)
|
|
stmt2 = Asgn AsgnOpEq Nothing lhs2 expr2
|
|
cmp2 = BinOp Gt left (RawNum 0)
|
|
|
|
streamerBlockName :: Expr -> Expr -> Identifier
|
|
streamerBlockName chunk size =
|
|
"_sv2v_strm_" ++ shortHash (chunk, size)
|
|
|
|
traverseStmt :: Stmt -> Stmt
|
|
traverseStmt (Asgn op mt lhs expr) =
|
|
traverseAsgn (lhs, expr) (Asgn op mt)
|
|
traverseStmt other = other
|
|
|
|
zeroBit :: Expr
|
|
zeroBit = Number $ Based 1 False Binary 0 0
|
|
|
|
traverseAsgn :: (LHS, Expr) -> (LHS -> Expr -> Stmt) -> Stmt
|
|
traverseAsgn (lhs, Stream StreamR _ exprs) constructor =
|
|
constructor lhs expr
|
|
where
|
|
expr = Concat $ exprs ++ [Repeat delta [zeroBit]]
|
|
size = DimsFn FnBits $ Right $ lhsToExpr lhs
|
|
exprSize = DimsFn FnBits $ Right (Concat exprs)
|
|
delta = BinOp Sub size exprSize
|
|
traverseAsgn (LHSStream StreamR _ lhss, expr) constructor =
|
|
constructor (LHSConcat lhss) expr
|
|
traverseAsgn (lhs, Stream StreamL chunk exprs) constructor = do
|
|
streamerBlock chunk size constructor lhs expr
|
|
where
|
|
expr = Concat $ Repeat delta [zeroBit] : exprs
|
|
size = DimsFn FnBits $ Right $ lhsToExpr lhs
|
|
exprSize = DimsFn FnBits $ Right (Concat exprs)
|
|
delta = BinOp Sub size exprSize
|
|
traverseAsgn (LHSStream StreamL chunk lhss, expr) constructor = do
|
|
streamerBlock chunk size constructor lhs expr
|
|
where
|
|
lhs = LHSConcat lhss
|
|
size = DimsFn FnBits $ Right expr
|
|
traverseAsgn (lhs, expr) constructor =
|
|
constructor lhs expr
|