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 <[email protected]> Acked-by: David Scott <[email protected]>
nephele-vm · Feb 19, 2015 · 2b4778b · 2b4778b
1 parent 4b37ed9
commit 2b4778b
Showing 1 changed file with 2 additions and 2 deletions.
diff --git 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"));