diff options
author | David Scott <dave.scott@eu.citrix.com> | 2013-03-20 20:24:45 +0000 |
---|---|---|
committer | Ian Campbell <ian.campbell@citrix.com> | 2013-04-11 12:03:12 +0100 |
commit | 814963a6647e9df3a42461d28f2f0c6e3d063016 (patch) | |
tree | 3eb864e438c8727cbb2f2f730f44649989d000da /tools/ocaml/libs | |
parent | f417daeef0530176e69d3a6f16a7c390054eafb0 (diff) | |
download | xen-814963a6647e9df3a42461d28f2f0c6e3d063016.tar.gz xen-814963a6647e9df3a42461d28f2f0c6e3d063016.tar.bz2 xen-814963a6647e9df3a42461d28f2f0c6e3d063016.zip |
ocaml: eventchn: remove the unused exception 'Eventchn.Error'
Signed-off-by: David Scott <dave.scott@eu.citrix.com>
Acked-by: Ian Campbell <ian.campbell@citrix.com>
Diffstat (limited to 'tools/ocaml/libs')
-rw-r--r-- | tools/ocaml/libs/eventchn/xeneventchn.ml | 4 | ||||
-rw-r--r-- | tools/ocaml/libs/eventchn/xeneventchn.mli | 2 |
2 files changed, 0 insertions, 6 deletions
diff --git a/tools/ocaml/libs/eventchn/xeneventchn.ml b/tools/ocaml/libs/eventchn/xeneventchn.ml index acebe10c6f..89edb9295d 100644 --- a/tools/ocaml/libs/eventchn/xeneventchn.ml +++ b/tools/ocaml/libs/eventchn/xeneventchn.ml @@ -14,8 +14,6 @@ * GNU Lesser General Public License for more details. *) -exception Error of string - type handle external init: unit -> handle = "stub_eventchn_init" @@ -32,5 +30,3 @@ external unmask: handle -> int -> unit = "stub_eventchn_unmask" let to_int x = x let of_int x = x - -let _ = Callback.register_exception "eventchn.error" (Error "register_callback") diff --git a/tools/ocaml/libs/eventchn/xeneventchn.mli b/tools/ocaml/libs/eventchn/xeneventchn.mli index a35743b340..e4e02a4a81 100644 --- a/tools/ocaml/libs/eventchn/xeneventchn.mli +++ b/tools/ocaml/libs/eventchn/xeneventchn.mli @@ -16,8 +16,6 @@ (** Event channel bindings: see tools/libxc/xenctrl.h *) -exception Error of string - type handle (** An initialised event channel interface. *) |