[Xen-devel] [PATCH 4 of 5] tools: ocaml: add NIC QoS parameters to the ocaml libxl interface

[David Scott <dave.scott@xxxxxxxxxxxxx>]

# HG changeset patch
# User David Scott <dave.scott@xxxxxxxxxxxxx>
# Date 1301314652 -3600
# Node ID 455cc73ea6268d54bc94e4c39ee954cef107f88b
# Parent  3aab79c907a2c78f4e81362944ee65ddf6f2cc6f
tools: ocaml: add NIC QoS parameters to the ocaml libxl interface

Signed-off-by: David Scott <dave.scott@xxxxxxxxxxxxx>

diff -r 3aab79c907a2 -r 455cc73ea626 tools/ocaml/libs/xl/xl.ml
--- a/tools/ocaml/libs/xl/xl.ml Mon Mar 28 13:17:32 2011 +0100
+++ b/tools/ocaml/libs/xl/xl.ml Mon Mar 28 13:17:32 2011 +0100
@@ -109,6 +109,8 @@
                ifname : string;
                script : string;
                nictype : nic_type;
+               qos_kib_per_sec : int32;
+               qos_timeslice_usec : int32;
        }
 end
 
diff -r 3aab79c907a2 -r 455cc73ea626 tools/ocaml/libs/xl/xl.mli
--- a/tools/ocaml/libs/xl/xl.mli        Mon Mar 28 13:17:32 2011 +0100
+++ b/tools/ocaml/libs/xl/xl.mli        Mon Mar 28 13:17:32 2011 +0100
@@ -109,6 +109,8 @@
                ifname : string;
                script : string;
                nictype : nic_type;
+               qos_kib_per_sec : int32;
+               qos_timeslice_usec : int32;
        }
 end
 
diff -r 3aab79c907a2 -r 455cc73ea626 tools/ocaml/libs/xl/xl_stubs.c
--- a/tools/ocaml/libs/xl/xl_stubs.c    Mon Mar 28 13:17:32 2011 +0100
+++ b/tools/ocaml/libs/xl/xl_stubs.c    Mon Mar 28 13:17:32 2011 +0100
@@ -225,7 +225,8 @@
        c_val->ifname = dup_String_val(gc, Field(v, 6));
        c_val->script = dup_String_val(gc, Field(v, 7));
        c_val->nictype = (Int_val(Field(v, 8))) + NICTYPE_IOEMU;
-
+       c_val->qos_kib_per_sec = (Int_val(Field(v, 9)));
+       c_val->qos_timeslice_usec = (Int_val(Field(v, 10)));
 out:
        CAMLreturn(ret);
 }

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