tested and seems to be working

This commit is contained in:
Yehowshua Immanuel 2025-03-23 18:45:32 -04:00
parent 35fc49382d
commit 76e542ff36
3 changed files with 37 additions and 12 deletions

View file

@ -116,22 +116,33 @@ mkSim = do
|> do
$display "got tag : " tagEngine.requestTag
|> do
$display "retiring tag : 3"
tagEngine.retireTag 3
res <- tagEngine.retireTag 3
$display "retiring tag : 3 " (fshow res)
action {}
|> do
$display "got tag : " tagEngine.requestTag
|> do
$display "got tag : " tagEngine.requestTag
|> do
$display "retiring tag : 4"
tagEngine.retireTag 4
res <- tagEngine.retireTag 4
$display "retiring tag : 4 " (fshow res)
action {}
|> do
res <- tagEngine.retireTag 4
$display "retiring tag : 4 " (fshow res)
action {}
|> do
res <- tagEngine.retireTag 0
$display "retiring tag : 0 " (fshow res)
action {}
|> do
$display "got tag : " tagEngine.requestTag
|> do
$display "got tag : " tagEngine.requestTag
|> do
$display "retiring tag : 1"
tagEngine.retireTag 1
res <- tagEngine.retireTag 1
$display "retiring tag : 1 " (fshow res)
action {}
|> do
$display "got tag : " tagEngine.requestTag