mirror of
https://github.com/xen-project/xen.git
synced 2026-10-28 10:11:27 +01:00
tools/ocaml: remove uint32 use added by 674ad2b
In 674ad2b (xenstore: extend the xenstore ring with a 'closing' signal)
two uses of uint32 are added to tools/ocaml/libs/xb/xs_ring_stubs.c .
As of ocaml 4.03.0+dev the uint32 type is no longer supported. This patch
replaces the uses of uint32 with uint32_t .
Signed-off-by: Michael Young <m.a.young@durham.ac.uk>
Acked-by: David Scott <dave.scott@citrix.com>
This commit is contained in:
Michael Young authored and Ian Campbell committed
1 parent
4b37ed959d
commit
2b4778b3f3
1 file changed
+2
-2
@@ -55,7 +55,7 @@ CAMLprim value ml_interface_read(value ml_interface,
|
||||
|
||||
cons = *(volatile uint32_t*)&intf->req_cons;
|
||||
prod = *(volatile uint32_t*)&intf->req_prod;
|
||||
connection = *(volatile uint32*)&intf->connection;
|
||||
connection = *(volatile uint32_t*)&intf->connection;
|
||||
|
||||
if (connection != XENSTORE_CONNECTED)
|
||||
caml_raise_constant(*caml_named_value("Xb.Reconnect"));
|
||||
@@ -105,7 +105,7 @@ CAMLprim value ml_interface_write(value ml_interface,
|
||||
|
||||
cons = *(volatile uint32_t*)&intf->rsp_cons;
|
||||
prod = *(volatile uint32_t*)&intf->rsp_prod;
|
||||
connection = *(volatile uint32*)&intf->connection;
|
||||
connection = *(volatile uint32_t*)&intf->connection;
|
||||
|
||||
if (connection != XENSTORE_CONNECTED)
|
||||
caml_raise_constant(*caml_named_value("Xb.Reconnect"));
|
||||
|
||||