[Xen-API] [PATCH] Increase speed of operations in the hypercall simulator

[David Scott <dave.scott@xxxxxxxxxxxxx>]

# HG changeset patch
# User David Scott <dave.scott@xxxxxxxxxxxxx>
# Date 1259942649 0
# Node ID ef4da454464400daaef35ac4d36a673f18100eaa
# Parent  391cde93edca48ad1f651a944462d15b8a74f2d3
[XIU]: increase the speed of the hypercall simulator

Later I'll probably make this configurable.

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

diff -r 391cde93edca -r ef4da4544644 ocaml/xiu/xiu.ml
--- a/ocaml/xiu/xiu.ml  Fri Dec 04 16:04:08 2009 +0000
+++ b/ocaml/xiu/xiu.ml  Fri Dec 04 16:04:09 2009 +0000
@@ -19,6 +19,9 @@
        | Inject_error_create
        | Inject_crash
        | Inject_shutdown
+
+let boot_delay = ref 0. (* seconds per boot *)
+let shutdown_delay = ref 0. (* seconds per shutdown *)
 
 let debug_level = ref 3
 let inject_error = ref []
@@ -430,7 +433,7 @@
 
        with_xs_retry (fun xs ->
                (* booting *)
-               Thread.delay 3.;
+               Thread.delay !boot_delay;
                
                let written_feature_balloon = ref false in
 
@@ -471,7 +474,7 @@
                                | None -> ()
                                | Some shutdown -> (
                                        add_console (sprintf "dom%d: 
shutdowning" domid);
-                                       Thread.delay 3.;
+                                       Thread.delay !shutdown_delay;
                                        close_devices xs;
                                        let dom = domain_find domid in
                                        match shutdown with
1 file changed, 5 insertions(+), 2 deletions(-)
ocaml/xiu/xiu.ml |    7 +++++--



_______________________________________________
xen-api mailing list
xen-api@xxxxxxxxxxxxxxxxxxx
http://lists.xensource.com/mailman/listinfo/xen-api