riscv haskell: globalPT is at maxPTLevel

spec/haskell/src/SEL4/Kernel/VSpace/RISCV64.hs

@@ -39,10 +39,6 @@ import SEL4.API.Invocation.RISCV64 as ArchInv
 
 {- Constants -}
 
--- counting from 0, i.e. number of levels = maxPTLevel + 1 = top-level table
-maxPTLevel :: Int
-maxPTLevel = 2
-
 ipcBufferSizeBits :: Int
 ipcBufferSizeBits = 10
 

spec/haskell/src/SEL4/Model/StateData/RISCV64.hs

@@ -32,8 +32,13 @@ data KernelState = RISCVKernelState {
     riscvKSKernelVSpace :: PPtr Word -> RISCVVSpaceRegionUse
   }
 
+-- counting from 0 at bottom, i.e. number of levels = maxPTLevel + 1;
+-- maxPTLevel = level of top-level root table
+maxPTLevel :: Int
+maxPTLevel = 2
+
 riscvKSGlobalPT :: KernelState -> PPtr PTE
-riscvKSGlobalPT s = head (riscvKSGlobalPTs s 0)
+riscvKSGlobalPT s = head (riscvKSGlobalPTs s maxPTLevel)
 
 newKernelState :: PAddr -> (KernelState, [PAddr])
 newKernelState _ = error "No initial state defined for RISC-V"