mirror of https://github.com/zachjs/sv2v.git
25 lines
601 B
Haskell
25 lines
601 B
Haskell
{- sv2v
|
|
- Author: Zachary Snow <zach@zachjs.com>
|
|
-
|
|
- Conversion for `always_comb` and `always_ff`
|
|
-}
|
|
|
|
module Convert.AlwaysKW (convert) where
|
|
|
|
import Convert.Traverse
|
|
import Language.SystemVerilog.AST
|
|
|
|
convert :: AST -> AST
|
|
convert = traverseDescriptions $ traverseModuleItems replaceAlwaysKW
|
|
|
|
-- Conversions:
|
|
-- `always_comb` -> `always @*`
|
|
-- `always_ff` -> `always`
|
|
|
|
replaceAlwaysKW :: ModuleItem -> ModuleItem
|
|
replaceAlwaysKW (AlwaysC AlwaysComb stmt) =
|
|
AlwaysC Always $ Timing SenseStar stmt
|
|
replaceAlwaysKW (AlwaysC AlwaysFF stmt) =
|
|
AlwaysC Always stmt
|
|
replaceAlwaysKW other = other
|