From 47ea5e9be83c1e3fae2d2497a83adb66c6b4e3f8 Mon Sep 17 00:00:00 2001 From: Jonathan Davies Date: Thu, 23 Mar 2017 16:28:45 +0000 Subject: [PATCH 10/23] oxenstored: allow compilation prior to OCaml 3.12.0 Commit 363ae55c8 used an OCaml feature called record field punning. This broke the build on compilers prior to OCaml 3.12.0. This patch makes no semantic change but now uses backwards-compatible syntax. Reported-by: Juergen Gross Signed-off-by: Jonathan Davies Reported-by: Boris Ostrovsky Tested-by: Boris Ostrovsky --- tools/ocaml/xenstored/process.ml | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/tools/ocaml/xenstored/process.ml b/tools/ocaml/xenstored/process.ml index fb5fdaf..7b60376 100644 --- a/tools/ocaml/xenstored/process.ml +++ b/tools/ocaml/xenstored/process.ml @@ -484,7 +484,7 @@ let do_input store cons doms con = if newpacket then ( let packet = Connection.pop_in con in let tid, rid, ty, data = Xenbus.Xb.Packet.unpack packet in - let req = {Packet.tid; Packet.rid; Packet.ty; Packet.data} in + let req = {Packet.tid=tid; Packet.rid=rid; Packet.ty=ty; Packet.data=data} in (* As we don't log IO, do not call an unnecessary sanitize_data info "[%s] -> [%d] %s \"%s\"" -- 2.1.4