tag engine now allows from simultaneous retire and request - but had to use unsafe
This commit is contained in:
parent
5588fafebd
commit
ed8e0b8337
2 changed files with 62 additions and 34 deletions
|
@ -7,6 +7,7 @@ mkTagEngineTester :: Module Empty
|
|||
mkTagEngineTester = do
|
||||
tagEngine :: TagEngine 5 <- mkTagEngine
|
||||
count :: Reg (UInt 4) <- mkReg 0;
|
||||
runOnce :: Reg Bool <- mkReg False
|
||||
|
||||
s :: ActionSeq
|
||||
s <-
|
||||
|
@ -30,7 +31,11 @@ mkTagEngineTester = do
|
|||
|> do requestTagAction
|
||||
|> do requestTagAction
|
||||
|> do retireTagAction 3
|
||||
|> do requestTagAction
|
||||
|> do $display "BEGIN TRY SIMULTANEOUS RETIRE and REQUEST"
|
||||
|> do
|
||||
retireTagAction 4
|
||||
requestTagAction
|
||||
|> do $display "END TRY SIMULTANEOUS RETIRE and REQUEST"
|
||||
|> do requestTagAction
|
||||
|> do retireTagAction 4
|
||||
|> do retireTagAction 4
|
||||
|
@ -42,7 +47,7 @@ mkTagEngineTester = do
|
|||
|
||||
addRules $
|
||||
rules
|
||||
"testIncrement": when (count < 10) ==>
|
||||
"testIncrement": when (runOnce == False) ==>
|
||||
do
|
||||
count := count + 1
|
||||
s.start
|
||||
s.start
|
||||
runOnce := True
|
Reference in a new issue