Artturin/riscv-bluespec-classic
1
0
Fork 0
forked from ReferenceProjects/riscv-bluespec-classic
Code Pull requests Activity

stopping point

Browse source
This commit is contained in:
Yehowshua Immanuel 2025-04-11 12:36:43 -04:00
parent 45191a2abd
commit 628319709e
1 changed files with 13 additions and 9 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

18
bs/Bus.bs
View file

@ -32,14 +32,18 @@ mkBus serverMap = do
tagEngineByClientVec :: Vector numClients (TagEngine inFlightTransactions)
tagEngineByClientVec <- replicateM mkTagEngine
-- There are `numClients` clients, each of which needs its own
-- arbiter as there are up to `numServer` servers that may wish
-- to submit a response to a given client.
clientArbiters :: Vector numClients (Arbiter.Arbiter_IFC numServers)
clientArbiters <- replicateM (mkArbiter False)
-- There are `numClients` clients, each of which needs its own arbiter as
-- there are up to `numServer` servers that may wish to submit a response
-- to a given client. Furthermore the rule that routes client requests to
-- servers makes for another potential requestor as it may determine that
-- a request is unmappable and instead opt to form and submit a
-- `BusError UnMapped` response directly to a client response arbiter. Thus
-- we must arbit between a total of `numServers + 1` requestors.
clientResponseArbiter :: Vector numClients (Arbiter.Arbiter_IFC (TAdd numServers 1))
clientResponseArbiter <- replicateM (mkArbiter False)
serverArbiters :: Vector numServers (Arbiter.Arbiter_IFC numClients)
serverArbiters <- replicateM (mkArbiter False)
serverRequestArbiter :: Vector numServers (Arbiter.Arbiter_IFC numClients)
serverRequestArbiter <- replicateM (mkArbiter False)
dummyVar :: Reg(Bool)
dummyVar <- mkReg False