From de35e86364a04a99d0eee1a08999887aef26d76b Mon Sep 17 00:00:00 2001 From: Tomasz Wroblewski Date: Mon, 11 Jan 2010 11:27:15 +0000 Subject: [PATCH] Add log when out-of-memory during vm start --- xenvm/vmact.ml | 8 +++++--- 1 file changed, 5 insertions(+), 3 deletions(-) diff --git a/xenvm/vmact.ml b/xenvm/vmact.ml index 83bf12b..04f8039 100644 --- a/xenvm/vmact.ml +++ b/xenvm/vmact.ml @@ -599,12 +599,14 @@ let build_vm xc xs state f restore = let start_vm xc xs state = maybe (fun cfg -> state.vm_next_cfg <- None; state.vm_cfg <- cfg) state.vm_next_cfg; - let cfg = state.vm_cfg in if not cfg.no_mem_check then ( let requested_kib = Memory.required_to_boot cfg.hvm cfg.vcpus cfg.memory cfg.memory 1. in - if not (Memory.wait_xen_free_mem ~xc requested_kib) then - raise (Not_enough_free_memory cfg); + if not (Memory.wait_xen_free_mem ~xc requested_kib) then ( + let avail_kib = Memory.get_free_memory_kib ~xc in + warn "failed to reserve enough memory, requested %Ld, available %Ld" requested_kib avail_kib; + raise (Not_enough_free_memory cfg) + ) ); let from_scratch = -- 2.39.5