From mboxrd@z Thu Jan 1 00:00:00 1970 From: Rob Hoes Subject: [PATCH v6 11/11] libxl: ocaml: remove dead code in xentoollog bindings Date: Mon, 9 Dec 2013 15:17:30 +0000 Message-ID: <1386602250-29866-12-git-send-email-rob.hoes@citrix.com> References: <1386602250-29866-1-git-send-email-rob.hoes@citrix.com> Mime-Version: 1.0 Content-Type: text/plain; charset="us-ascii" Content-Transfer-Encoding: 7bit Return-path: In-Reply-To: <1386602250-29866-1-git-send-email-rob.hoes@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: Rob Hoes , ian.jackson@eu.citrix.com, dave.scott@eu.citrix.com, ian.campbell@citrix.com List-Id: xen-devel@lists.xenproject.org Found by Coverty. CIDs: 1128567 1128568 1128576 1128577. Signed-off-by: Rob Hoes Reviewed-by: Andrew Cooper Acked-by: David Scott Acked-by: Ian Campbell --- tools/ocaml/libs/xentoollog/xentoollog_stubs.c | 4 ---- 1 file changed, 4 deletions(-) diff --git a/tools/ocaml/libs/xentoollog/xentoollog_stubs.c b/tools/ocaml/libs/xentoollog/xentoollog_stubs.c index daf48fe..aadc3d1 100644 --- a/tools/ocaml/libs/xentoollog/xentoollog_stubs.c +++ b/tools/ocaml/libs/xentoollog/xentoollog_stubs.c @@ -93,8 +93,6 @@ static void stub_xtl_ocaml_vmessage(struct xentoollog_logger *logger, value *func = caml_named_value(xtl->vmessage_cb) ; char *msg; - if (args == NULL) - caml_raise_out_of_memory(); if (func == NULL) caml_raise_sys_error(caml_copy_string("Unable to find callback")); if (vasprintf(&msg, format, al) < 0) @@ -124,8 +122,6 @@ static void stub_xtl_ocaml_progress(struct xentoollog_logger *logger, struct caml_xtl *xtl = (struct caml_xtl*)logger; value *func = caml_named_value(xtl->progress_cb) ; - if (args == NULL) - caml_raise_out_of_memory(); if (func == NULL) caml_raise_sys_error(caml_copy_string("Unable to find callback")); -- 1.7.10.4