From abff3c6f04f3554da763fe7a3d0a7b7c922a9ae9 Mon Sep 17 00:00:00 2001 From: Tomasz Wroblewski Date: Tue, 19 Jan 2010 10:59:53 +0000 Subject: [PATCH] [xenvm] Fix incorrect vm state if exception occurs during vm initialisation --- xenvm/vmact.ml | 1 + 1 file changed, 1 insertion(+) diff --git a/xenvm/vmact.ml b/xenvm/vmact.ml index 36cc657..084e894 100644 --- 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 = -- 2.39.5