mirror of
https://github.com/zachjs/sv2v.git
synced 2026-09-07 01:50:06 +02:00
27 lines
751 B
Haskell
27 lines
751 B
Haskell
{- sv2v
|
|
- Author: Zachary Snow <[email protected]>
|
|
-
|
|
- Conversion for `always_latch`, `always_comb`, and `always_ff`
|
|
-
|
|
- `always_latch` -> `always @*`
|
|
- `always_comb` -> `always @*`
|
|
- `always_ff` -> `always`
|
|
-}
|
|
|
|
module Convert.AlwaysKW (convert) where
|
|
|
|
import Convert.Traverse
|
|
import Language.SystemVerilog.AST
|
|
|
|
convert :: [AST] -> [AST]
|
|
convert = map $ traverseDescriptions $ traverseModuleItems replaceAlwaysKW
|
|
|
|
replaceAlwaysKW :: ModuleItem -> ModuleItem
|
|
replaceAlwaysKW (AlwaysC AlwaysLatch stmt) =
|
|
AlwaysC Always $ Timing (Event SenseStar) stmt
|
|
replaceAlwaysKW (AlwaysC AlwaysComb stmt) =
|
|
AlwaysC Always $ Timing (Event SenseStar) stmt
|
|
replaceAlwaysKW (AlwaysC AlwaysFF stmt) =
|
|
AlwaysC Always stmt
|
|
replaceAlwaysKW other = other
|