libxl: ocaml: remove dead code in xentoollog bindings

Found by Coverty. CIDs: 1128567 1128568 1128576 1128577.

Signed-off-by: Rob Hoes <rob.hoes@citrix.com>
Reviewed-by: Andrew Cooper <andrew.cooper3@citrix.com>
Acked-by: David Scott <dave.scott@eu.citrix.com>
Acked-by: Ian Campbell <ian.campbell@citrix.com>

diff --git a/tools/ocaml/libs/xentoollog/xentoollog_stubs.c b/tools/ocaml/libs/xentoollog/xentoollog_stubs.c
index 3b2f91bf9faef52b35811f8c3b3120f5b9421b0f..122ed0de4f38fef7484453d7dbbdabf255df3c11 100644 (file)
--- a/tools/ocaml/libs/xentoollog/xentoollog_stubs.c
+++ b/tools/ocaml/libs/xentoollog/xentoollog_stubs.c
@@ -87,8 +87,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)
@@ -116,8 +114,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"));