Add memInitV2C cell

standardsemiconductor · Jul 24, 2024 · 8c1ce27 · 8c1ce27
1 parent 796ea70
commit 8c1ce27
Showing 1 changed file with 25 additions and 0 deletions.
diff --git a/lib/Bayeux/Rtl.hs b/lib/Bayeux/Rtl.hs
@@ -90,6 +90,8 @@ module Bayeux.Rtl
   , modFloorC
   , -- *** Multiplexers
     muxC
+  , -- *** Memories
+    memInitV2C
   , -- ** Processes
     Process(..)
   , ProcStmt(..)
@@ -547,6 +549,29 @@ muxC cellId w a b s y = Cell
   ]
   CellEndStmt
 
+memInitV2C
+  :: CellId
+  -> Constant -- ^ MEMID
+  -> Constant -- ^ ABITS
+  -> Constant -- ^ WIDTH
+  -> Constant -- ^ WORDS
+  -> Constant -- ^ PRIORITY
+  -> SigSpec  -- ^ ADDR
+  -> SigSpec  -- ^ DATA
+  -> Cell
+memInitV2C cellId memId aBits w wrds p a d= Cell
+  []
+  (CellStmt "$meminit_v2" cellId)
+  [ CellParameter Nothing "\\MEMID"    memId
+  , CellParameter Nothing "\\ABITS"    aBits
+  , CellParameter Nothing "\\WIDTH"    w
+  , CellParameter Nothing "\\WORDS"    wrds
+  , CellParameter Nothing "\\PRIORITY" p
+  , CellConnect "\\ADDR" a
+  , CellConnect "\\DATA" d
+  ]
+  CellEndStmt
+
 data Process = Process [AttrStmt] ProcStmt ProcessBody ProcEndStmt
   deriving (Eq, Read, Show)