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>

diff --git a/tools/ocaml/libs/xb/xs_ring_stubs.c b/tools/ocaml/libs/xb/xs_ring_stubs.c
index fc9b0c53c43cc27ecfe6c3cde912a27b03b5693a..fd561a21176fb1884d1f7615484bbc2f9d2d37a6 100644 (file)
--- a/tools/ocaml/libs/xb/xs_ring_stubs.c
+++ b/tools/ocaml/libs/xb/xs_ring_stubs.c
@@ -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"));