From: Vincent Hanquez <vincent.hanquez@eu.citrix.com>
Date: Wed, 22 Apr 2009 11:01:28 +0000 (+0100)
Subject: write the multiprocessor suspend flag in xenstore
X-Git-Url: http://xenbits.xensource.com/gitweb?a=commitdiff_plain;h=36a353dfe47e74f36147289585c13ee9038f97cb;p=xenclient%2Ftoolstack.git

write the multiprocessor suspend flag in xenstore
---

diff --git a/xenops/domain.ml b/xenops/domain.ml
index e8406e2..7ade4ff 100644
--- 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 ->