mirror of
https://github.com/xen-project/xen.git
synced 2026-10-29 18:50:05 +01:00
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 <jgross@suse.com>
Signed-off-by: Jonathan Davies <jonathan.davies@citrix.com>
Reported-by: Boris Ostrovsky <boris.ostrovsky@oracle.com>
Tested-by: Boris Ostrovsky <boris.ostrovsky@oracle.com>
This commit is contained in:
Jonathan Davies authored and 
Ian Jackson committed
1 parent
898b7c4977
commit
bf22c39e4b
1 file changed
+1
-1
@@ -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\""
|
||||
|
||||