Skip to content

Commit

Permalink
rt haskell: add release_q_runnable_asrt to deleteObjects
Browse files Browse the repository at this point in the history
Signed-off-by: Michael McInerney <[email protected]>
  • Loading branch information
michaelmcinerney committed Jul 21, 2022
1 parent 0c8cf12 commit 30f3066
Showing 1 changed file with 2 additions and 0 deletions.
2 changes: 2 additions & 0 deletions spec/haskell/src/SEL4/Model/PSpace.lhs
Original file line number Diff line number Diff line change
Expand Up @@ -238,6 +238,8 @@ No type checks are performed when deleting objects; "deleteObjects" simply delet
> "Assert that `sym_refs (state_refs_of' s)` holds"
> stateAssert valid_idle'_asrt
> "Assert that `valid_idle' s` holds"
> stateAssert release_q_runnable_asrt
> "Assert that threads in the release queue are runnable'"
> unless (fromPPtr ptr .&. mask bits == 0) $
> alignError bits
> stateAssert (deletionIsSafe ptr bits)
Expand Down

0 comments on commit 30f3066

Please sign in to comment.