libxl: ocaml: in send_debug_keys, clean up before raising exception

Signed-off-by: Rob Hoes <rob.hoes@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/xl/xenlight_stubs.c b/tools/ocaml/libs/xl/xenlight_stubs.c
index be8a3e8671cc2b75b150d73ab0128af1db6d4b81..80a59864f00180ce29db839962be908fbd95c085 100644 (file)
--- a/tools/ocaml/libs/xl/xenlight_stubs.c
+++ b/tools/ocaml/libs/xl/xenlight_stubs.c
@@ -695,11 +695,11 @@ value stub_xl_send_debug_keys(value ctx, value keys)
        c_keys = dup_String_val(keys);
 
        ret = libxl_send_debug_keys(CTX, c_keys);
+       free(c_keys);
+
        if (ret != 0)
                failwith_xl(ret, "send_debug_keys");
 
-       free(c_keys);
-
        CAMLreturn(Val_unit);
 }