arm-hyp abstract: hypervisor fault not itself allowed to fault
This commit is contained in:
parent
115078328b
commit
04fae5af32
|
@ -16,10 +16,10 @@ begin
|
|||
|
||||
context Arch begin global_naming ARM_A
|
||||
|
||||
fun handle_hypervisor_fault :: "word32 \<Rightarrow> hyp_fault_type \<Rightarrow> (unit, 'z::state_ext) f_monad"
|
||||
fun handle_hypervisor_fault :: "word32 \<Rightarrow> hyp_fault_type \<Rightarrow> (unit, 'z::state_ext) s_monad"
|
||||
where
|
||||
"handle_hypervisor_fault thread (ARMVCPUFault hsr) =
|
||||
liftE (handle_fault thread (ArchFault $ VCPUFault hsr))"
|
||||
handle_fault thread (ArchFault $ VCPUFault hsr)"
|
||||
|
||||
|
||||
end
|
||||
|
|
Loading…
Reference in New Issue