tools/ocaml: remove uint32 use

OCaml is replacing its own uint32 type with the ISO C99 uint32_t type
in 4.03.0+dev. Ths patch replaces the remaining uses of uint32 with
uint32_t in the ocaml C code for xen.

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 8bd10474903a8d6a8ed125e6fd161806fa326ec7..17656c27b17aad19b2f976453937edf3fc451280 100644 (file)
--- a/tools/ocaml/libs/xb/xs_ring_stubs.c
+++ b/tools/ocaml/libs/xb/xs_ring_stubs.c
@@ -20,6 +20,7 @@
 #include <unistd.h>
 #include <errno.h>
 #include <string.h>
+#include <stdint.h>
 
 #include <xenctrl.h>
 #include <xen/io/xs_wire.h>
@@ -42,8 +43,8 @@ static int xs_ring_read(struct mmap_interface *interface,
        XENSTORE_RING_IDX cons, prod; /* offsets only */
        int to_read;
 
-       cons = *(volatile uint32*)&intf->req_cons;
-       prod = *(volatile uint32*)&intf->req_prod;
+       cons = *(volatile uint32_t*)&intf->req_cons;
+       prod = *(volatile uint32_t*)&intf->req_prod;
        xen_mb();
 
        if ((prod - cons) > XENSTORE_RING_SIZE)
@@ -72,8 +73,8 @@ static int xs_ring_write(struct mmap_interface *interface,
        XENSTORE_RING_IDX cons, prod;
        int can_write;
 
-       cons = *(volatile uint32*)&intf->rsp_cons;
-       prod = *(volatile uint32*)&intf->rsp_prod;
+       cons = *(volatile uint32_t*)&intf->rsp_cons;
+       prod = *(volatile uint32_t*)&intf->rsp_prod;
        xen_mb();
        if ( (prod - cons) >= XENSTORE_RING_SIZE )
                return 0;