[Xen-changelog] [xen-unstable] ocaml: Topology.get returns an array not a single element.

[Xen patchbot-unstable <patchbot@xxxxxxx>]

# HG changeset patch
# User Ian Campbell <ian.campbell@xxxxxxxxxx>
# Date 1328027679 0
# Node ID bff9e4b818b97d6282b8d427e43ffb194ac7f593
# Parent  f12ea2dbd328b1e8e57366a941bf33f0fb6a7fac
ocaml: Topology.get returns an array not a single element.

The stub implementation appears to already be correct.

Signed-off-by: Ian Campbell <ian.campbell@xxxxxxxxxx>
Acked-by: Ian Jackson <Ian.Jackson@xxxxxxxxxxxxx>
Committed-by: Ian Jackson <Ian.Jackson@xxxxxxxxxxxxx>
---


diff -r f12ea2dbd328 -r bff9e4b818b9 tools/ocaml/libs/xl/xenlight.ml.in
--- a/tools/ocaml/libs/xl/xenlight.ml.in        Tue Jan 31 16:34:39 2012 +0000
+++ b/tools/ocaml/libs/xl/xenlight.ml.in        Tue Jan 31 16:34:39 2012 +0000
@@ -26,7 +26,7 @@
                socket : int;
                node : int;
        }
-       external get : unit -> t = "stub_xl_topologyinfo"
+       external get : unit -> t array = "stub_xl_topologyinfo"
 end
 
 
diff -r f12ea2dbd328 -r bff9e4b818b9 tools/ocaml/libs/xl/xenlight.mli.in
--- a/tools/ocaml/libs/xl/xenlight.mli.in       Tue Jan 31 16:34:39 2012 +0000
+++ b/tools/ocaml/libs/xl/xenlight.mli.in       Tue Jan 31 16:34:39 2012 +0000
@@ -26,7 +26,7 @@
                socket : int;
                node : int;
        }
-       external get : unit -> t = "stub_xl_topologyinfo"
+       external get : unit -> t array = "stub_xl_topologyinfo"
 end
 
 external send_trigger : domid -> trigger -> int -> unit = 
"stub_xl_send_trigger"

_______________________________________________
Xen-changelog mailing list
Xen-changelog@xxxxxxxxxxxxxxxxxxx
http://lists.xensource.com/xen-changelog