[xenvm] Fix incorrect vm state if exception occurs during vm initialisation

diff --git a/xenvm/vmact.ml b/xenvm/vmact.ml
index 36cc657c840b317ab7c36e5f3977c42a53401f20..084e8948a29f8bf8f99c5e187fba8abe962cbeca 100644 (file)
--- a/xenvm/vmact.ml
+++ b/xenvm/vmact.ml
@@ -628,6 +628,7 @@ let build_vm xc xs state f restore =
        with exn ->
                warn "receive exception building vm: %s" (Printexc.to_string exn);
                stop_vm xc xs state;
+               change_vmstate state VmShutdown;
                raise exn
 
 let start_vm xc xs state =