CA-267831: Remove bad assert_can_boot_here call from intra-pool SXM

Instead of `reserve_memory_for_vm` we call `allocate_vm_to_host`, because the
former calls `assert_can_boot_here` without taking into account that the
storage is going to be migrated. It is an unnecessary check anyway, because it
is preceded by assert_can_migrate, which does similar checks (but the right
ones).

Signed-off-by: Rob Hoes <[email protected]>

Author: robhoes

ocaml/xapi/message_forwarding.ml

@@ -1728,8 +1728,8 @@ module Forward = functor(Local: Custom_actions.CUSTOM_ACTIONS) -> struct
              * forward the call to the source. *)
             let snapshot = Db.VM.get_record ~__context ~self:vm in
             (fun ~local_fn ~__context ~vm op ->
-              reserve_memory_for_vm ~__context ~vm ~host ~snapshot ~host_op:`vm_migrate
-                (fun () -> forward_vm_op ~local_fn ~__context ~vm op))
+              allocate_vm_to_host ~__context ~vm ~host ~snapshot ~host_op:`vm_migrate ();
+              forward_vm_op ~local_fn ~__context ~vm op)
           else
             (* Cross pool: just forward to the source host. Resources on the
              * destination will be reserved separately. *)