From 814963a6647e9df3a42461d28f2f0c6e3d063016 Mon Sep 17 00:00:00 2001 From: David Scott Date: Wed, 20 Mar 2013 20:24:45 +0000 Subject: ocaml: eventchn: remove the unused exception 'Eventchn.Error' Signed-off-by: David Scott Acked-by: Ian Campbell --- tools/ocaml/libs/eventchn/xeneventchn.ml | 4 ---- tools/ocaml/libs/eventchn/xeneventchn.mli | 2 -- 2 files changed, 6 deletions(-) (limited to 'tools/ocaml') 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. *) -- cgit v1.2.3