[Xen-changelog] [xen master] libxl: ocaml: in send_debug_keys, clean up before raising exception

[patchbot@xxxxxxx]

commit ff571a047661c461fe27613442370f66de387d8e
Author:     Rob Hoes <rob.hoes@xxxxxxxxxx>
AuthorDate: Wed Nov 6 17:50:02 2013 +0000
Commit:     Ian Campbell <ian.campbell@xxxxxxxxxx>
CommitDate: Mon Nov 11 15:39:47 2013 +0000

    libxl: ocaml: in send_debug_keys, clean up before raising exception
    
    Signed-off-by: Rob Hoes <rob.hoes@xxxxxxxxxx>
    Acked-by: David Scott <dave.scott@xxxxxxxxxxxxx>
    Acked-by: Ian Campbell <ian.campbell@xxxxxxxxxx>
---
 tools/ocaml/libs/xl/xenlight_stubs.c |    4 ++--
 1 files changed, 2 insertions(+), 2 deletions(-)

diff --git a/tools/ocaml/libs/xl/xenlight_stubs.c 
b/tools/ocaml/libs/xl/xenlight_stubs.c
index be8a3e8..80a5986 100644
--- 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);
 }
 
--
generated by git-patchbot for /home/xen/git/xen.git#master

_______________________________________________
Xen-changelog mailing list
Xen-changelog@xxxxxxxxxxxxx
http://lists.xensource.com/xen-changelog