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@citrix.com>
Acked-by: Ian Jackson <Ian.Jackson@eu.citrix.com>
Committed-by: Ian Jackson <Ian.Jackson@eu.citrix.com>

diff --git a/tools/ocaml/libs/xl/xenlight.ml.in b/tools/ocaml/libs/xl/xenlight.ml.in
index bf7a45080cae6db2a6e8b477b82737c43c42a56f..162b4a96bb6ce85832b5ba1eb81d6d6c699519cf 100644 (file)
--- a/tools/ocaml/libs/xl/xenlight.ml.in
+++ b/tools/ocaml/libs/xl/xenlight.ml.in
@@ -26,7 +26,7 @@ module Topologyinfo = struct
                socket : int;
                node : int;
        }
-       external get : unit -> t = "stub_xl_topologyinfo"
+       external get : unit -> t array = "stub_xl_topologyinfo"
 end
 
 

diff --git a/tools/ocaml/libs/xl/xenlight.mli.in b/tools/ocaml/libs/xl/xenlight.mli.in
index 7006b2a1455de8ce21815b415265a0cd15d32dc2..ea919a7a00b15f79b476c0cb16f08d4edc1db160 100644 (file)
--- a/tools/ocaml/libs/xl/xenlight.mli.in
+++ b/tools/ocaml/libs/xl/xenlight.mli.in
@@ -26,7 +26,7 @@ module Topologyinfo : sig
                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"