From mboxrd@z Thu Jan 1 00:00:00 1970 From: David Scott Subject: [PATCH 4/4] ocaml: eventchn: remove the unused exception 'Eventchn.Error' Date: Wed, 20 Mar 2013 20:24:45 +0000 Message-ID: <1363811085-6700-5-git-send-email-dave.scott@eu.citrix.com> References: <1363811085-6700-1-git-send-email-dave.scott@eu.citrix.com> Mime-Version: 1.0 Content-Type: text/plain; charset="us-ascii" Content-Transfer-Encoding: 7bit Return-path: In-Reply-To: <1363811085-6700-1-git-send-email-dave.scott@eu.citrix.com> List-Unsubscribe: , List-Post: List-Help: List-Subscribe: , Sender: xen-devel-bounces@lists.xen.org Errors-To: xen-devel-bounces@lists.xen.org To: xen-devel@lists.xen.org Cc: jonathan.ludlam@eu.citrix.com, David Scott List-Id: xen-devel@lists.xenproject.org Signed-off-by: David Scott --- tools/ocaml/libs/eventchn/xeneventchn.ml | 4 ---- tools/ocaml/libs/eventchn/xeneventchn.mli | 2 -- 2 files changed, 6 deletions(-) diff --git a/tools/ocaml/libs/eventchn/xeneventchn.ml b/tools/ocaml/libs/eventchn/xeneventchn.ml index acebe10..89edb92 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 a35743b..e4e02a4 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. *) -- 1.8.1.2