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

some prep work to towards having a server accept a request

Browse source
This commit is contained in:
Yehowshua Immanuel 2025-04-14 14:33:13 -04:00
parent 373d170c3f
commit cd3d728083
2 changed files with 12 additions and 4 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

14
bs/Bus.bs
View file

@ -72,6 +72,14 @@ mkBus serverMap = do
clientResponseQueues :: Vector numClients (FIFOF (TaggedBusResponse inFlightTransactions))
clientResponseQueues <- replicateM (mkSizedBypassFIFOF (valueOf inFlightTransactions))
-- The following two vectors of FIFOs make it easier to push/pull data to/from internal
-- server methods:
consumeRequestQueues :: Vector numServers (FIFOF (TaggedBusResponse inFlightTransactions))
consumeRequestQueues <- replicateM mkBypassFIFOF
submitResponseQueues :: Vector numServers (FIFOF (TaggedBusResponse inFlightTransactions))
submitResponseQueues <- replicateM mkBypassFIFOF
let clientRules :: Vector numClients (Rules)
clientRules = genWith $ \clientIdx ->
let
@ -82,7 +90,7 @@ mkBus serverMap = do
"rule" : when True ==> do
$display "Bus.bs:71"
(sprintf "request server from client %d" clientIdx): when True ==> do
(sprintf "dispatch client request %d" clientIdx): when True ==> do
let
clientRequest :: TaggedBusRequest inFlightTransactions
clientRequest = selectedClientRequestQueue.first
@ -162,11 +170,11 @@ mkBus serverMap = do
let servers :: Vector numServers (BusServer inFlightTransactions numClients)
servers = genWith $ \serverIdx ->
interface BusServer
consumeRequest :: ActionValue (MkTagType inFlightTransactions, BusRequest)
consumeRequest :: ActionValue (TaggedBusRequest inFlightTransactions)
consumeRequest = do
dummyVar := (not dummyVar)
let dummyBusRequest = BusReadRequest (ReadRequest 0 SizeByte)
return (0, dummyBusRequest)
return (TaggedBusRequest {tag = 0; busRequest = dummyBusRequest})
submitResponse :: ( MkClientTagType numClients,
TaggedBusResponse inFlightTransactions

2
bs/BusTypes.bs
View file

@ -102,7 +102,7 @@ interface (BusClient :: # -> *) inFlightTransactions =
-- received from `consumeRequest`, ensuring the response is correctly
-- associated with the original request.
interface (BusServer :: # -> # -> *) inFlightTransactions numClients =
consumeRequest :: ActionValue (MkTagType inFlightTransactions, BusRequest)
consumeRequest :: ActionValue (TaggedBusRequest inFlightTransactions)
submitResponse :: ( MkClientTagType numClients,
TaggedBusResponse inFlightTransactions
) -> Action