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

eliminate warnings

Browse source
This commit is contained in:
Yehowshua Immanuel 2025-03-25 08:03:04 -04:00
parent ed8e0b8337
commit e89254ebef
2 changed files with 11 additions and 20 deletions
Download patch file Download diff file Expand all files Collapse all files

7
bs/Top.bs
View file

@ -68,8 +68,6 @@ mkTop = do
bus :: Bus <- mkBus
busClient :: BusClient <- mkBusClient
let a :: List Integer = 1 :> 2 :> Nil
b = length a
persistLed :: Reg (Bit 8) <- mkReg 0
messageM $ "Hallo!!" + (realToString 5)
@ -102,10 +100,7 @@ mkTop = do
mkSim :: Module Empty
mkSim = do
let cfg :: BRAM_Configure = defaultValue
tagEngineTester :: Empty <- mkTagEngineTester
count :: Reg (UInt 4) <- mkReg 0;
_ :: Empty <- mkTagEngineTester
initCFunctions :: Reg Bool <- mkReg False;
core :: Core FCLK <- mkCore;