From e0dfff8c14c05594d1a0c2216f906653fcf225de Mon Sep 17 00:00:00 2001 From: Ian Campbell Date: Tue, 31 Jan 2012 16:34:39 +0000 Subject: ocaml: Topology.get returns an array not a single element. The stub implementation appears to already be correct. Signed-off-by: Ian Campbell Acked-by: Ian Jackson Committed-by: Ian Jackson --- tools/ocaml/libs/xl/xenlight.ml.in | 2 +- tools/ocaml/libs/xl/xenlight.mli.in | 2 +- 2 files changed, 2 insertions(+), 2 deletions(-) (limited to 'tools/ocaml') diff --git a/tools/ocaml/libs/xl/xenlight.ml.in b/tools/ocaml/libs/xl/xenlight.ml.in index bf7a45080c..162b4a96bb 100644 --- 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 7006b2a145..ea919a7a00 100644 --- 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" -- cgit v1.2.3