mirror of
https://github.com/xen-project/xen.git
synced 2026-10-29 10:40:03 +01:00
Yang Qian
89faccfd35
1. Add a common bind virq function 2. Reduce the stub code of `bind_dom_exc_virq` Signed-off-by: Yang Qian <yang.qian@citrix.com> Reviewed-by: Andrew Cooper <andrew.cooper3@citrix.com> Acked-by: Christian Lindig <christian.lindig@citrix.com>
50 lines
2.0 KiB
OCaml
50 lines
2.0 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 handle
|
|
|
|
external init: unit -> handle = "stub_eventchn_init"
|
|
external fd: handle -> Unix.file_descr = "stub_eventchn_fd"
|
|
|
|
type t = int
|
|
|
|
type virq_t =
|
|
| Timer (* #define VIRQ_TIMER 0 *)
|
|
| Debug (* #define VIRQ_DEBUG 1 *)
|
|
| Console (* #define VIRQ_CONSOLE 2 *)
|
|
| Dom_exc (* #define VIRQ_DOM_EXC 3 *)
|
|
| Tbuf (* #define VIRQ_TBUF 4 *)
|
|
| Reserved_5 (* Do not use this value as it's not defined *)
|
|
| Debugger (* #define VIRQ_DEBUGGER 6 *)
|
|
| Xenoprof (* #define VIRQ_XENOPROF 7 *)
|
|
| Con_ring (* #define VIRQ_CON_RING 8 *)
|
|
| Pcpu_state (* #define VIRQ_PCPU_STATE 9 *)
|
|
| Mem_event (* #define VIRQ_MEM_EVENT 10 *)
|
|
| Xc_reserved (* #define VIRQ_XC_RESERVED 11 *)
|
|
| Enomem (* #define VIRQ_ENOMEM 12 *)
|
|
| Xenpmu (* #define VIRQ_XENPMU 13 *)
|
|
|
|
external notify: handle -> int -> unit = "stub_eventchn_notify"
|
|
external bind_interdomain: handle -> int -> int -> int = "stub_eventchn_bind_interdomain"
|
|
external bind_virq: handle -> virq_t -> int = "stub_eventchn_bind_virq"
|
|
let bind_dom_exc_virq handle = bind_virq handle Dom_exc
|
|
external unbind: handle -> int -> unit = "stub_eventchn_unbind"
|
|
external pending: handle -> int = "stub_eventchn_pending"
|
|
external unmask: handle -> int -> unit = "stub_eventchn_unmask"
|
|
|
|
let to_int x = x
|
|
let of_int x = x
|