- return 0;
-}
-
-/** @brief Migrate the VM to the given host.
- * @ingroup msg_VMs
- *
- * FIXME: No migration cost occurs. If you want to simulate this too, you want to use a MSG_task_send() before or after,
- * depending on whether you want to do cold or hot migration.
- */
-void MSG_vm_migrate(msg_vm_t vm, msg_host_t new_pm)
-{
- /* some thoughts:
- * - One approach is ...
- * We first create a new VM (i.e., destination VM) on the destination physical host. The destination VM will
- * receive the state of the source
- * VM over network. We will finally destroy the source VM.
- * - This behavior is similar to the way of migration in the real world.
- * Even before a migration is completed, we will see a destination VM, consuming resources.
- * - We have to relocate all processes. The existing process migration code will work for this?
- * - The name of the VM is a somewhat unique ID in the code. It is tricky for the destination VM?
- *
- * - Another one is ...
- * We update the information of the given VM to place it to the destination physical host.
- *
- * The second one would be easier.
- */
-
- simgrid::s4u::VirtualMachine* typedVm = static_cast<simgrid::s4u::VirtualMachine*>(vm);
- simgrid::surf::VirtualMachineImpl* pimpl = typedVm->pimpl_vm_;
- msg_host_t old_pm = pimpl->getPm();
-
- if (old_pm->isOff())
- THROWF(vm_error, 0, "Cannot migrate VM '%s' from host '%s', which is offline.", vm->cname(), old_pm->cname());
-
- if (new_pm->isOff())
- THROWF(vm_error, 0, "Cannot migrate VM '%s' to host '%s', which is offline.", vm->cname(), new_pm->cname());
-
- if (!MSG_vm_is_running(vm))
- THROWF(vm_error, 0, "Cannot migrate VM '%s' that is not running yet.", vm->cname());
-
- if (typedVm->isMigrating())
- THROWF(vm_error, 0, "Cannot migrate VM '%s' that is already migrating.", vm->cname());
-
- pimpl->isMigrating = true;
-
- int ret = do_migration(vm, old_pm, new_pm);
- if (ret == -1) {
- pimpl->isMigrating = false;
- THROWF(host_error, 0, "Source host '%s' failed during the migration of VM '%s'.", old_pm->cname(), vm->cname());
- } else if (ret == -2) {
- pimpl->isMigrating = false;
- THROWF(host_error, 0, "Destination host '%s' failed during the migration of VM '%s'.", new_pm->cname(),
- vm->cname());
- }