From 2b4778b3f35dd67b12ed9dad1c65b28e71bbe9d1 Mon Sep 17 00:00:00 2001 From: Michael Young Date: Sun, 8 Feb 2015 15:54:23 +0000 Subject: [PATCH] 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 Acked-by: David Scott --- tools/ocaml/libs/xb/xs_ring_stubs.c | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/tools/ocaml/libs/xb/xs_ring_stubs.c b/tools/ocaml/libs/xb/xs_ring_stubs.c index fc9b0c53c4..fd561a2117 100644 --- 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")); -- 2.39.5