[Xen-devel] [PATCH 14 of 14] 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 1301507668 -3600
# Node ID 852635d6df5cc507361e5a608a4953dd1eb98b0c
# Parent  2501899ab12fcc128ac62b0319b7a6f0b8982a42
tools: ocaml: add NIC QoS parameters to the ocaml libxl interface

Signed-off-by: David Scott <dave.scott@xxxxxxxxxxxxx>
Acked-by: Ian Campbell <ian.campbell@xxxxxxxxxx>

diff -r 2501899ab12f -r 852635d6df5c tools/ocaml/libs/xl/xl.ml
--- a/tools/ocaml/libs/xl/xl.ml Wed Mar 30 18:54:28 2011 +0100
+++ b/tools/ocaml/libs/xl/xl.ml Wed Mar 30 18:54:28 2011 +0100
@@ -122,6 +122,8 @@ module Device_nic = struct
                ifname : string;
                script : string;
                nictype : nic_type;
+               qos_kb_per_sec : int32;
+               qos_timeslice_usec : int32;
        }
        external add : t -> domid -> unit = "stub_xl_device_nic_add"
        external del : t -> domid -> unit = "stub_xl_device_nic_del"
diff -r 2501899ab12f -r 852635d6df5c tools/ocaml/libs/xl/xl.mli
--- a/tools/ocaml/libs/xl/xl.mli        Wed Mar 30 18:54:28 2011 +0100
+++ b/tools/ocaml/libs/xl/xl.mli        Wed Mar 30 18:54:28 2011 +0100
@@ -122,6 +122,8 @@ module Device_nic : sig
                ifname : string;
                script : string;
                nictype : nic_type;
+               qos_kb_per_sec : int32;
+               qos_timeslice_usec : int32;
        }
        external add : t -> domid -> unit = "stub_xl_device_nic_add"
        external del : t -> domid -> unit = "stub_xl_device_nic_del"
diff -r 2501899ab12f -r 852635d6df5c tools/ocaml/libs/xl/xl_stubs.c
--- a/tools/ocaml/libs/xl/xl_stubs.c    Wed Mar 30 18:54:28 2011 +0100
+++ b/tools/ocaml/libs/xl/xl_stubs.c    Wed Mar 30 18:54:28 2011 +0100
@@ -225,7 +225,8 @@ static int device_nic_val(caml_gc *gc, l
        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_kb_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