CA-419227 Add logs for debug

Signed-off-by: Changlei Li <[email protected]>

Author: changlei-li

ocaml/xapi/xapi_vm_lifecycle.ml

@@ -862,6 +862,9 @@ let force_state_reset_keep_current_operations ~__context ~self ~value:state =
   (* First update the power_state. Some operations below indirectly rely on this. *)
   let old_state = Db.VM.get_power_state ~__context ~self in
   Db.VM.set_power_state ~__context ~self ~value:state ;
+  debug "%s: VM power state changed from %s to %s" __FUNCTION__
+    (Record_util.vm_power_state_to_string old_state)
+    (Record_util.vm_power_state_to_string state) ;
   if state = `Suspended then
     remove_pending_guidance ~__context ~self ~value:`restart_device_model ;
   if state = `Halted then (

ocaml/xapi/xapi_vm_migrate.ml

@@ -1100,6 +1100,7 @@ let vdi_copy_fun __context dbg vdi_map remote is_intra_pool remote_vdis so_far
         ) ;
       result
     with e ->
+      error "Catch error in post_mirror: %s" (Printexc.to_string e) ;
       let mirror_failed =
         match mirror_id with
         | Some mid ->