From: Rob Hoes <rob.hoes@citrix.com>
Date: Wed, 6 Nov 2013 17:50:02 +0000 (+0000)
Subject: libxl: ocaml: in send_debug_keys, clean up before raising exception
X-Git-Tag: archive/raspbian/4.8.0-1+rpi1~1^2~6015
X-Git-Url: https://dgit.raspbian.org/?a=commitdiff_plain;h=ff571a047661c461fe27613442370f66de387d8e;p=xen.git

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 be8a3e8671..80a59864f0 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);
 }