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
|
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
|
where
|
||||||
"handle_hypervisor_fault thread (ARMVCPUFault hsr) =
|
"handle_hypervisor_fault thread (ARMVCPUFault hsr) =
|
||||||
liftE (handle_fault thread (ArchFault $ VCPUFault hsr))"
|
handle_fault thread (ArchFault $ VCPUFault hsr)"
|
||||||
|
|
||||||
|
|
||||||
end
|
end
|
||||||
|
|
Loading…
Reference in New Issue