CA-35397: Increase the number of domain info structs returned per call from 2 to...

Signed-off-by: David Scott <dave.scott@eu.citrix.com>

diff --git a/xc/xc.ml b/xc/xc.ml
index 71310f23836cfdf432c9f8c736691f7bc85e3fc1..e12c92e26a692ec80dceff8d196534bcea0758de 100644 (file)
--- a/xc/xc.ml
+++ b/xc/xc.ml
@@ -156,7 +156,7 @@ external _domain_getinfolist: handle -> domid -> int -> domaininfo list
        = "stub_xc_domain_getinfolist"
 
 let domain_getinfolist handle first_domain =
-       let nb = 2 in
+       let nb = 100 in
        let last_domid l = (List.hd l).domid + 1 in
        let rec __getlist from =
                let l = _domain_getinfolist handle from nb in