ReferenceProjects/riscv-bluespec-classic
Archived
1
0
Fork 0
Code Issues 13 Pull requests Projects Releases Packages Wiki Activity Actions

Bus types typecheck!!!

Browse source
This commit is contained in:
Yehowshua Immanuel 2025-04-08 23:36:54 -04:00
parent fe2fa21fcc
commit 989c4e9616
3 changed files with 27 additions and 17 deletions
Download patch file Download diff file Expand all files Collapse all files

6
bs/Bus.bs
View file

@ -21,11 +21,11 @@ mkTestTop = do
testType <- mkTestType
return $ interface Empty { }
mkBus :: Vector numClients (BusClient (UInt (TLog numClients)))
-> Vector numServers (BusServer (UInt (TLog numClients)) clientTagType)
mkBus :: Vector numClients (BusClient inFlightTransactions)
-> Vector numServers (BusServer inFlightTransactions numClients)
-> Module Empty
mkBus clientVec serverVec = do
tagEngineByClient :: Vector numClients (TagEngine (TLog numClients))
tagEngineByClient :: Vector numClients (TagEngine inFlightTransactions)
tagEngineByClient <- replicateM mkTagEngine
return $ interface Empty { }