riscv haskell: object numbers for LargePage and HugePage
This commit is contained in:
parent
2d9afdf7be
commit
067d1bdcab
|
@ -160,14 +160,14 @@ createObject t regionBase _ isDevice =
|
|||
return $! FrameCap (pointerCast regionBase)
|
||||
VMReadWrite RISCVSmallPage isDevice Nothing
|
||||
Arch.Types.LargePageObject -> do
|
||||
placeNewDataObject regionBase 0 isDevice
|
||||
placeNewDataObject regionBase ptTranslationBits isDevice
|
||||
modify (\ks -> ks { gsUserPages =
|
||||
funupd (gsUserPages ks)
|
||||
(fromPPtr regionBase) (Just RISCVLargePage)})
|
||||
return $! FrameCap (pointerCast regionBase)
|
||||
VMReadWrite RISCVLargePage isDevice Nothing
|
||||
Arch.Types.HugePageObject -> do
|
||||
placeNewDataObject regionBase 0 isDevice
|
||||
placeNewDataObject regionBase (ptTranslationBits+ptTranslationBits) isDevice
|
||||
modify (\ks -> ks { gsUserPages =
|
||||
funupd (gsUserPages ks)
|
||||
(fromPPtr regionBase) (Just RISCVHugePage)})
|
||||
|
|
Loading…
Reference in New Issue