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

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
Show stats Download patch file Download diff file Expand all files Collapse all files

24
bs/TagEngine.bs
View file

@ -37,9 +37,10 @@ mkTagEngine =
methodRetireTagCalledValid :: RWire UIntLog2N(numTags)
methodRetireTagCalledValid <- mkUnsafeRWire
debugOnce <- mkReg True
-- computedTagResult :: BypassWire (Maybe UIntLog2N(numTags))
-- methodRetireTagCalledValid <- mkBypassWire
tt :: Reg Bool <- mkReg False
debugOnce <- mkReg True
addRules $
rules
@ -52,15 +53,15 @@ mkTagEngine =
"update stack pointer": when True ==>
do
stackPtr :=
stackPtr :=
case (methodRequestTagCalled, methodRetireTagCalledValid.wget) of
(True, Just tag) -> stackPtr
(True, Just _) -> stackPtr
(True, Nothing) ->
case stackPtr of
Just 0 -> Nothing
Just sampledStackPtr -> Just |> sampledStackPtr - 1
Nothing -> Nothing
(False, Just tag) ->
(False, Just _) ->
case stackPtr of
Just sampledStackPtr -> Just |> sampledStackPtr + 1
Nothing -> Nothing
@ -69,7 +70,7 @@ mkTagEngine =
"update free stack": when True ==>
do
case (methodRequestTagCalled, methodRetireTagCalledValid.wget) of
(True, Just tag) -> do action {}
(True, Just _) -> do action {}
(True, Nothing) -> do action {}
(False, Just tag) -> do
case stackPtr of
@ -82,7 +83,7 @@ mkTagEngine =
"update in use": when True ==>
do
case (methodRequestTagCalled, methodRetireTagCalledValid.wget) of
(True, Just tag) -> do action {}
(True, Just _) -> do action {}
(True, Nothing) ->
case stackPtr of
Just sampledStackPtr -> do
@ -92,7 +93,6 @@ mkTagEngine =
(select inUseVec tag) := False
(False, Nothing) -> do action {}
counter <- mkReg(0 :: UIntLog2N(numTags))
return $
interface TagEngine
@ -104,9 +104,9 @@ mkTagEngine =
Just tag -> do
return |> Just tag
Nothing -> do
return |>
return |>
case stackPtr of
Just sampledStackPtr ->
Just sampledStackPtr ->
Just |> readReg (select freeStackVec sampledStackPtr)
Nothing -> Nothing
@ -116,10 +116,6 @@ mkTagEngine =
let
tagValid = tag < reifiedNumTags
tagInUse = readReg (select inUseVec tag)
nextStackPtrUint =
case stackPtr of
Nothing -> 0
Just n -> n + 1
if (tagValid && tagInUse)
then do
methodRetireTagCalledValid.wset tag

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;