adbrucker
/
lh-l4v
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

aarch64 haskell: remove redundant check 

The page table size can not be "vspace" here, because the invocation
is only for lower-level tables.

Signed-off-by: Gerwin Klein <gerwin.klein@proofcraft.systems>
This commit is contained in:
Gerwin Klein 2022-03-17 10:19:41 +11:00 committed by Gerwin Klein
parent 27922da136
commit 539e82858e
1 changed files with 2 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
spec/haskell/src/SEL4/Kernel/VSpace/AARCH64.hs
View File

@ -783,7 +783,8 @@ performPageTableInvocation (PageTableUnmap cap slot) = do
Just (asid, vaddr) -> do
let ptr = capPTBasePtr cap
unmapPageTable asid vaddr ptr
let slots = [ptr, ptr + bit pteBits .. ptr + bit (ptBits (capPTisVSpace cap)) - 1]
-- ptBits False, because it can't be a VSpace table
let slots = [ptr, ptr + bit pteBits .. ptr + bit (ptBits False) - 1]
mapM_ (flip storePTE InvalidPTE) slots
_ -> return ()
ArchObjectCap cap <- getSlotCap slot