mirror of
https://github.com/xen-project/xen.git
synced 2026-10-28 10:11:27 +01:00
Roger Pau Monné
0570d7f276
Introduce an option to allow selecting a behavior similar to the pre Xen 4.15 one for accesses to MSRs not explicitly handled. Since commit84e848fd7aand322ec7c89faccesses to MSRs not explicitly handled by Xen result in the injection of a #GP to the guest. This is a behavior change since previously a #GP was only injected if accessing the MSR on the real hardware would also trigger a #GP, or if the attempted to be set bits wouldn't match the hardware values (for PV). The reasons for not leaking hardware MSR values and injecting a #GP are fully valid, so the solution proposed here should be considered a temporary workaround until all the required MSRs are properly handled. This seems to be problematic for some guests, so introduce an option to fallback to this kind of legacy behavior without leaking the underlying MSR values to the guest. When the option is set, for both PV and HVM don't inject a #GP to the guest on MSR read if reading the underlying MSR doesn't result in a #GP, do the same for writes and simply discard the value to be written on that case. Note that for guests restored or migrated from previous Xen versions the option is enabled by default, in order to keep a compatible MSR behavior. Such compatibility is done at the libxl layer, to avoid higher-level toolstacks from having to know the details about this flag. Signed-off-by: Roger Pau Monné <roger.pau@citrix.com> Acked-by: Christian Lindig <christian.lindig@citrix.com> Reviewed-by: Ian Jackson <iwj@xenproject.org> Reviewed-by: Andrew Cooper <andrew.cooper3@citrix.com> Tested-by: Boris Ostrovsky <boris.ostrovsky@oracle.com> Reviewed-by: Kevin Tian <kevin.tian@intel.com> Release-Acked-by: Ian Jackson <iwj@xenproject.org>
230 lines
7.9 KiB
OCaml
230 lines
7.9 KiB
OCaml
(*
|
|
* Copyright (C) 2006-2007 XenSource Ltd.
|
|
* Copyright (C) 2008 Citrix Ltd.
|
|
* Author Vincent Hanquez <vincent.hanquez@eu.citrix.com>
|
|
*
|
|
* This program is free software; you can redistribute it and/or modify
|
|
* it under the terms of the GNU Lesser General Public License as published
|
|
* by the Free Software Foundation; version 2.1 only. with the special
|
|
* exception on linking described in file LICENSE.
|
|
*
|
|
* This program is distributed in the hope that it will be useful,
|
|
* but WITHOUT ANY WARRANTY; without even the implied warranty of
|
|
* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
|
|
* GNU Lesser General Public License for more details.
|
|
*)
|
|
|
|
type domid = int
|
|
type vcpuinfo = {
|
|
online : bool;
|
|
blocked : bool;
|
|
running : bool;
|
|
cputime : int64;
|
|
cpumap : int32;
|
|
}
|
|
|
|
type xen_arm_arch_domainconfig = {
|
|
gic_version: int;
|
|
nr_spis: int;
|
|
clock_frequency: int32;
|
|
}
|
|
|
|
type x86_arch_emulation_flags =
|
|
| X86_EMU_LAPIC
|
|
| X86_EMU_HPET
|
|
| X86_EMU_PM
|
|
| X86_EMU_RTC
|
|
| X86_EMU_IOAPIC
|
|
| X86_EMU_PIC
|
|
| X86_EMU_VGA
|
|
| X86_EMU_IOMMU
|
|
| X86_EMU_PIT
|
|
| X86_EMU_USE_PIRQ
|
|
| X86_EMU_VPCI
|
|
|
|
type x86_arch_misc_flags =
|
|
| X86_MSR_RELAXED
|
|
|
|
type xen_x86_arch_domainconfig = {
|
|
emulation_flags: x86_arch_emulation_flags list;
|
|
misc_flags: x86_arch_misc_flags list;
|
|
}
|
|
|
|
type arch_domainconfig =
|
|
| ARM of xen_arm_arch_domainconfig
|
|
| X86 of xen_x86_arch_domainconfig
|
|
|
|
type domain_create_flag =
|
|
| CDF_HVM
|
|
| CDF_HAP
|
|
| CDF_S3_INTEGRITY
|
|
| CDF_OOS_OFF
|
|
| CDF_XS_DOMAIN
|
|
| CDF_IOMMU
|
|
| CDF_NESTED_VIRT
|
|
|
|
type domain_create_iommu_opts =
|
|
| IOMMU_NO_SHAREPT
|
|
|
|
type domctl_create_config = {
|
|
ssidref: int32;
|
|
handle: string;
|
|
flags: domain_create_flag list;
|
|
iommu_opts: domain_create_iommu_opts list;
|
|
max_vcpus: int;
|
|
max_evtchn_port: int;
|
|
max_grant_frames: int;
|
|
max_maptrack_frames: int;
|
|
arch: arch_domainconfig;
|
|
}
|
|
|
|
type domaininfo = {
|
|
domid : domid;
|
|
dying : bool;
|
|
shutdown : bool;
|
|
paused : bool;
|
|
blocked : bool;
|
|
running : bool;
|
|
hvm_guest : bool;
|
|
shutdown_code : int;
|
|
total_memory_pages : nativeint;
|
|
max_memory_pages : nativeint;
|
|
shared_info_frame : int64;
|
|
cpu_time : int64;
|
|
nr_online_vcpus : int;
|
|
max_vcpu_id : int;
|
|
ssidref : int32;
|
|
handle : int array;
|
|
arch_config : arch_domainconfig;
|
|
}
|
|
type sched_control = { weight : int; cap : int; }
|
|
type physinfo_cap_flag =
|
|
| CAP_HVM
|
|
| CAP_PV
|
|
| CAP_DirectIO
|
|
| CAP_HAP
|
|
| CAP_Shadow
|
|
| CAP_IOMMU_HAP_PT_SHARE
|
|
| CAP_Vmtrace
|
|
|
|
type physinfo = {
|
|
threads_per_core : int;
|
|
cores_per_socket : int;
|
|
nr_cpus : int;
|
|
max_node_id : int;
|
|
cpu_khz : int;
|
|
total_pages : nativeint;
|
|
free_pages : nativeint;
|
|
scrub_pages : nativeint;
|
|
capabilities : physinfo_cap_flag list;
|
|
max_nr_cpus : int; (** compile-time max possible number of nr_cpus *)
|
|
}
|
|
type version = { major : int; minor : int; extra : string; }
|
|
type compile_info = {
|
|
compiler : string;
|
|
compile_by : string;
|
|
compile_domain : string;
|
|
compile_date : string;
|
|
}
|
|
type shutdown_reason = Poweroff | Reboot | Suspend | Crash | Watchdog | Soft_reset
|
|
|
|
exception Error of string
|
|
type handle
|
|
external interface_open : unit -> handle = "stub_xc_interface_open"
|
|
external interface_close : handle -> unit = "stub_xc_interface_close"
|
|
|
|
(** [with_intf f] runs [f] with a global handle that is opened on demand
|
|
* and kept open. Conceptually, a client should use either
|
|
* interface_open and interface_close or with_intf although mixing both
|
|
* is possible *)
|
|
val with_intf : (handle -> 'a) -> 'a
|
|
|
|
(** [get_handle] returns the global handle used by [with_intf] *)
|
|
val get_handle: unit -> handle option
|
|
|
|
(** [close handle] closes the handle maintained by [with_intf]. This
|
|
* should only be closed before process exit. It must not be called from
|
|
* a function called directly or indirectly by with_intf as this
|
|
* would invalidate the handle that with_intf passes to its argument. *)
|
|
val close_handle: unit -> unit
|
|
|
|
val domain_create: handle -> ?domid:int -> domctl_create_config -> domid
|
|
|
|
external domain_sethandle : handle -> domid -> string -> unit = "stub_xc_domain_sethandle"
|
|
external domain_max_vcpus : handle -> domid -> int -> unit
|
|
= "stub_xc_domain_max_vcpus"
|
|
external domain_pause : handle -> domid -> unit = "stub_xc_domain_pause"
|
|
external domain_unpause : handle -> domid -> unit = "stub_xc_domain_unpause"
|
|
external domain_resume_fast : handle -> domid -> unit
|
|
= "stub_xc_domain_resume_fast"
|
|
external domain_destroy : handle -> domid -> unit = "stub_xc_domain_destroy"
|
|
external domain_shutdown : handle -> domid -> shutdown_reason -> unit
|
|
= "stub_xc_domain_shutdown"
|
|
external _domain_getinfolist : handle -> domid -> int -> domaininfo list
|
|
= "stub_xc_domain_getinfolist"
|
|
val domain_getinfolist : handle -> domid -> domaininfo list
|
|
external domain_getinfo : handle -> domid -> domaininfo
|
|
= "stub_xc_domain_getinfo"
|
|
external domain_get_vcpuinfo : handle -> int -> int -> vcpuinfo
|
|
= "stub_xc_vcpu_getinfo"
|
|
external domain_ioport_permission: handle -> domid -> int -> int -> bool -> unit
|
|
= "stub_xc_domain_ioport_permission"
|
|
external domain_iomem_permission: handle -> domid -> nativeint -> nativeint -> bool -> unit
|
|
= "stub_xc_domain_iomem_permission"
|
|
external domain_irq_permission: handle -> domid -> int -> bool -> unit
|
|
= "stub_xc_domain_irq_permission"
|
|
external vcpu_affinity_set : handle -> domid -> int -> bool array -> unit
|
|
= "stub_xc_vcpu_setaffinity"
|
|
external vcpu_affinity_get : handle -> domid -> int -> bool array
|
|
= "stub_xc_vcpu_getaffinity"
|
|
external vcpu_context_get : handle -> domid -> int -> string
|
|
= "stub_xc_vcpu_context_get"
|
|
external sched_id : handle -> int = "stub_xc_sched_id"
|
|
external sched_credit_domain_set : handle -> domid -> sched_control -> unit
|
|
= "stub_sched_credit_domain_set"
|
|
external sched_credit_domain_get : handle -> domid -> sched_control
|
|
= "stub_sched_credit_domain_get"
|
|
external shadow_allocation_set : handle -> domid -> int -> unit
|
|
= "stub_shadow_allocation_set"
|
|
external shadow_allocation_get : handle -> domid -> int
|
|
= "stub_shadow_allocation_get"
|
|
external evtchn_alloc_unbound : handle -> domid -> domid -> int
|
|
= "stub_xc_evtchn_alloc_unbound"
|
|
external evtchn_reset : handle -> domid -> unit = "stub_xc_evtchn_reset"
|
|
external readconsolering : handle -> string = "stub_xc_readconsolering"
|
|
external send_debug_keys : handle -> string -> unit = "stub_xc_send_debug_keys"
|
|
external physinfo : handle -> physinfo = "stub_xc_physinfo"
|
|
external pcpu_info: handle -> int -> int64 array = "stub_xc_pcpu_info"
|
|
external domain_setmaxmem : handle -> domid -> int64 -> unit
|
|
= "stub_xc_domain_setmaxmem"
|
|
external domain_set_memmap_limit : handle -> domid -> int64 -> unit
|
|
= "stub_xc_domain_set_memmap_limit"
|
|
external domain_memory_increase_reservation :
|
|
handle -> domid -> int64 -> unit
|
|
= "stub_xc_domain_memory_increase_reservation"
|
|
external map_foreign_range :
|
|
handle -> domid -> int -> nativeint -> Xenmmap.mmap_interface
|
|
= "stub_map_foreign_range"
|
|
|
|
external domain_assign_device: handle -> domid -> (int * int * int * int) -> unit
|
|
= "stub_xc_domain_assign_device"
|
|
external domain_deassign_device: handle -> domid -> (int * int * int * int) -> unit
|
|
= "stub_xc_domain_deassign_device"
|
|
external domain_test_assign_device: handle -> domid -> (int * int * int * int) -> bool
|
|
= "stub_xc_domain_test_assign_device"
|
|
|
|
external version : handle -> version = "stub_xc_version_version"
|
|
external version_compile_info : handle -> compile_info
|
|
= "stub_xc_version_compile_info"
|
|
external version_changeset : handle -> string = "stub_xc_version_changeset"
|
|
external version_capabilities : handle -> string
|
|
= "stub_xc_version_capabilities"
|
|
|
|
type featureset_index = Featureset_raw | Featureset_host | Featureset_pv | Featureset_hvm
|
|
external get_cpu_featureset : handle -> featureset_index -> int64 array = "stub_xc_get_cpu_featureset"
|
|
|
|
external pages_to_kib : int64 -> int64 = "stub_pages_to_kib"
|
|
val pages_to_mib : int64 -> int64
|
|
external watchdog : handle -> int -> int32 -> int
|
|
= "stub_xc_watchdog"
|