[Xen-changelog] [xen-unstable] ocaml: fix build after 25446:648508ee27a2, 25449:68d46c5ea0a3 et al.

[Xen patchbot-unstable <patchbot@xxxxxxx>]

# HG changeset patch
# User Ian Campbell <Ian.Campbell@xxxxxxxxxx>
# Date 1338622785 -3600
# Node ID 6bea63e6c780de6303361e5f190d6925996cd2a2
# Parent  1e2ce970f0f29af4184d975c4f161f11938070cf
ocaml: fix build after 25446:648508ee27a2, 25449:68d46c5ea0a3 et al.

These renamed a type and the associated functions and the ocaml bindings were
not updated to suit.

This also highlighted that libxl_domain_sched_params should not be DIR_IN since
it is also use as an output struct.

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


diff -r 1e2ce970f0f2 -r 6bea63e6c780 tools/libxl/libxl_types.idl
--- a/tools/libxl/libxl_types.idl       Fri Jun 01 18:02:03 2012 +0100
+++ b/tools/libxl/libxl_types.idl       Sat Jun 02 08:39:45 2012 +0100
@@ -232,7 +232,7 @@ libxl_domain_sched_params = Struct("doma
     ("slice",        integer, {'init_val': 
'LIBXL_DOMAIN_SCHED_PARAM_SLICE_DEFAULT'}),
     ("latency",      integer, {'init_val': 
'LIBXL_DOMAIN_SCHED_PARAM_LATENCY_DEFAULT'}),
     ("extratime",    integer, {'init_val': 
'LIBXL_DOMAIN_SCHED_PARAM_EXTRATIME_DEFAULT'}),
-    ], dir=DIR_IN)
+    ])
 
 libxl_domain_build_info = Struct("domain_build_info",[
     ("max_vcpus",       integer),
diff -r 1e2ce970f0f2 -r 6bea63e6c780 tools/ocaml/libs/xl/genwrap.py
--- a/tools/ocaml/libs/xl/genwrap.py    Fri Jun 01 18:02:03 2012 +0100
+++ b/tools/ocaml/libs/xl/genwrap.py    Sat Jun 02 08:39:45 2012 +0100
@@ -32,8 +32,9 @@ functions = { # ( name , [type1,type2,..
                       ],
     "cputopology":    [ ("get",            ["unit", "t array"]),
                       ],
-    "sched_credit":   [ ("domain_get",     ["domid", "t"]),
-                        ("domain_set",     ["domid", "t", "unit"]),
+    "domain_sched_params":
+                      [ ("get",            ["domid", "t"]),
+                        ("set",            ["domid", "t", "unit"]),
                       ],
 }
 def stub_fn_name(ty, name):
diff -r 1e2ce970f0f2 -r 6bea63e6c780 tools/ocaml/libs/xl/xenlight_stubs.c
--- a/tools/ocaml/libs/xl/xenlight_stubs.c      Fri Jun 01 18:02:03 2012 +0100
+++ b/tools/ocaml/libs/xl/xenlight_stubs.c      Sat Jun 02 08:39:45 2012 +0100
@@ -496,37 +496,37 @@ value stub_xl_cputopology_get(value unit
        CAMLreturn(topology);
 }
 
-value stub_xl_sched_credit_domain_get(value domid)
+value stub_xl_domain_sched_params_get(value domid)
 {
        CAMLparam1(domid);
        CAMLlocal1(scinfo);
-       libxl_sched_credit_domain c_scinfo;
+       libxl_domain_sched_params c_scinfo;
        int ret;
        INIT_STRUCT();
 
        INIT_CTX();
-       ret = libxl_sched_credit_domain_get(ctx, Int_val(domid), &c_scinfo);
+       ret = libxl_domain_sched_params_get(ctx, Int_val(domid), &c_scinfo);
        if (ret != 0)
-               failwith_xl("sched_credit_domain_get", &lg);
+               failwith_xl("domain_sched_params_get", &lg);
        FREE_CTX();
 
-       scinfo = Val_sched_credit_domain(&gc, &lg, &c_scinfo);
+       scinfo = Val_domain_sched_params(&gc, &lg, &c_scinfo);
        CAMLreturn(scinfo);
 }
 
-value stub_xl_sched_credit_domain_set(value domid, value scinfo)
+value stub_xl_domain_sched_params_set(value domid, value scinfo)
 {
        CAMLparam2(domid, scinfo);
-       libxl_sched_credit_domain c_scinfo;
+       libxl_domain_sched_params c_scinfo;
        int ret;
        INIT_STRUCT();
 
-       sched_credit_domain_val(&gc, &lg, &c_scinfo, scinfo);
+       domain_sched_params_val(&gc, &lg, &c_scinfo, scinfo);
 
        INIT_CTX();
-       ret = libxl_sched_credit_domain_set(ctx, Int_val(domid), &c_scinfo);
+       ret = libxl_domain_sched_params_set(ctx, Int_val(domid), &c_scinfo);
        if (ret != 0)
-               failwith_xl("sched_credit_domain_set", &lg);
+               failwith_xl("domain_sched_params_set", &lg);
        FREE_CTX();
 
        CAMLreturn(Val_unit);

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