Mailing List Archive

commit 2e173b8383928e8d98d67ce57ec069eb612def60
Author: Edwin Török <edvin.torok@citrix.com>
AuthorDate: Fri Dec 16 18:25:16 2022 +0000
Commit: Andrew Cooper <andrew.cooper3@citrix.com>
CommitDate: Mon Dec 19 19:31:26 2022 +0000

tools/ocaml/xenctrl: Fix unused value warning

Fixes: 8b3c06a3e5 ("tools/ocaml/xenctrl: OCaml 5 support, fix use-after-free")
Signed-off-by: Edwin Török <edwin.torok@cloud.com>
Acked-by: Christian Lindig <christian.lindig@citrix.com>
Acked-by: Andrew Cooper <andrew.cooper3@citrix.com>
---
tools/ocaml/libs/xc/xenctrl.ml | 2 +-
1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/tools/ocaml/libs/xc/xenctrl.ml b/tools/ocaml/libs/xc/xenctrl.ml
index 9a80ae5e28..7442bbbfc5 100644
--- a/tools/ocaml/libs/xc/xenctrl.ml
+++ b/tools/ocaml/libs/xc/xenctrl.ml
@@ -182,7 +182,7 @@ let get_handle () = !handle

let close_handle () =
match !handle with
- | Some h -> handle := None
+ | Some _ -> handle := None
| None -> ()

let with_intf f =
--
generated by git-patchbot for /home/xen/git/xen.git#master