2018-09-05 07:22:55 +00:00
|
|
|
(*
|
2020-03-09 06:18:30 +00:00
|
|
|
* Copyright 2020, Data61, CSIRO (ABN 41 687 119 230)
|
2018-09-05 07:22:55 +00:00
|
|
|
*
|
2020-03-09 06:18:30 +00:00
|
|
|
* SPDX-License-Identifier: GPL-2.0-only
|
2018-09-05 07:22:55 +00:00
|
|
|
*)
|
|
|
|
|
2018-08-06 09:05:25 +00:00
|
|
|
chapter "Handle Hypervisor Fault Events"
|
2018-09-05 07:22:55 +00:00
|
|
|
|
|
|
|
theory Hypervisor_A
|
2020-10-31 06:30:58 +00:00
|
|
|
imports Exceptions_A
|
2018-09-05 07:22:55 +00:00
|
|
|
begin
|
|
|
|
|
|
|
|
context Arch begin global_naming RISCV64_A
|
|
|
|
|
|
|
|
fun handle_hypervisor_fault :: "machine_word \<Rightarrow> hyp_fault_type \<Rightarrow> (unit, 'z::state_ext) s_monad"
|
2018-08-06 09:05:25 +00:00
|
|
|
where
|
|
|
|
"handle_hypervisor_fault thread RISCVNoHypFaults = return ()"
|
2018-09-05 07:22:55 +00:00
|
|
|
|
|
|
|
end
|
|
|
|
end
|