write the multiprocessor suspend flag in xenstore

diff --git a/xenops/domain.ml b/xenops/domain.ml
index e8406e2d7a5e1c6e08901802ac3b68136f29a419..7ade4ffd80588e4af5d0d0926bf03cf5c4ce88a4 100644 (file)
--- a/xenops/domain.ml
+++ b/xenops/domain.ml
@@ -155,6 +155,8 @@ let make ~xc ~xs ~hvm ?(name="") ?(xsdata=[]) ?(platformdata=[]) uuid =
                xs.Xs.writev dom_path (List.map (fun (k,v) ->
                        ("platform/" ^ k, v)) platformdata);
 
+               xs.Xs.write (dom_path ^ "/control/platform-feature-multiprocessor-suspend") "1";
+
                debug "Created domain with id: %d" domid;
                domid
        with e ->