From f922cb572a2842f3090e67065c35f843bab4de5c Mon Sep 17 00:00:00 2001
From: Vincent Hanquez <vincent.hanquez@eu.citrix.com>
Date: Mon, 21 Sep 2009 16:25:55 +0100
Subject: [PATCH] expose hap as a config option. default to true.

---
 xenvm/vmact.ml    | 2 +-
 xenvm/vmconfig.ml | 4 ++++
 2 files changed, 5 insertions(+), 1 deletion(-)

diff --git a/xenvm/vmact.ml b/xenvm/vmact.ml
index a24a82f..5c9acc5 100644
--- a/xenvm/vmact.ml
+++ b/xenvm/vmact.ml
@@ -414,7 +414,7 @@ let create_vm xc xs state =
 		let info = {
 			Domain.ssidref = 0l;
 			Domain.hvm = state.vm_cfg.hvm;
-			Domain.hap = state.vm_cfg.hvm;
+			Domain.hap = state.vm_cfg.hap;
 			Domain.name = "";
 			Domain.platformdata = state.vm_cfg.platform;
 			Domain.xsdata = [];
diff --git a/xenvm/vmconfig.ml b/xenvm/vmconfig.ml
index f818808..91fd59d 100644
--- a/xenvm/vmconfig.ml
+++ b/xenvm/vmconfig.ml
@@ -103,6 +103,7 @@ type config = {
 	(* kernel *)
 	startup: startupstate;
 	hvm: bool;
+	hap: bool;
 	kernel: string;
 	cmdline: string;
 	serial: string;
@@ -437,6 +438,7 @@ exception Unknown_field of string
 let get cfg field =
 	match field with
 	| "hvm"       -> string_of_bool cfg.hvm
+	| "hap"       -> string_of_bool cfg.hap
 	| "kernel"    -> cfg.kernel
 	| "cmdline"   -> cfg.cmdline
 	| "serial"    -> cfg.serial
@@ -473,6 +475,7 @@ let get cfg field =
 let set cfg field value =
 	match field with
 	| "hvm"       -> { cfg with hvm = bool_of_string value }
+	| "hap"       -> { cfg with hap = bool_of_string value }
 	| "kernel"    -> { cfg with kernel = value }
 	| "cmdline"   -> { cfg with cmdline = value }
 	| "serial"    -> { cfg with serial = value }
@@ -560,6 +563,7 @@ let empty =
 		(* get/set *)
 		debug = false;
 		hvm = false;
+		hap = true;
 		kernel = "";
 		cmdline = "";
 		serial = "";
-- 
2.39.5