X-Git-Url: http://info.iut-bm.univ-fcomte.fr/pub/gitweb/simgrid.git/blobdiff_plain/38cc0d89b17367770fa9a0e1ac3284d6b7a4fd3e..f6c392a8ae65365589b83f6b6ea939e027ef8b1c:/src/smpi/internals/smpi_deployment.cpp diff --git a/src/smpi/internals/smpi_deployment.cpp b/src/smpi/internals/smpi_deployment.cpp index 85de568017..f783e8cd66 100644 --- a/src/smpi/internals/smpi_deployment.cpp +++ b/src/smpi/internals/smpi_deployment.cpp @@ -1,10 +1,10 @@ -/* Copyright (c) 2004-2017. The SimGrid Team. +/* Copyright (c) 2004-2018. The SimGrid Team. * All rights reserved. */ /* This program is free software; you can redistribute it and/or modify it * under the terms of the license (GNU LGPL) which comes with this package. */ -#include "SmpiHost.hpp" +#include "smpi_host.hpp" #include "private.hpp" #include "simgrid/msg.h" /* barrier */ #include "simgrid/s4u/Engine.hpp" @@ -17,20 +17,18 @@ namespace app { class Instance { public: - Instance(const char* name, int max_no_processes, int process_count, MPI_Comm comm, msg_bar_t finalization_barrier) + Instance(const std::string name, int max_no_processes, int process_count, MPI_Comm comm, + msg_bar_t finalization_barrier) : name(name) , size(max_no_processes) , present_processes(0) - , index(process_count) , comm_world(comm) , finalization_barrier(finalization_barrier) - { - } + { } - const char* name; + const std::string name; int size; int present_processes; - int index; // Badly named. This should be "no_processes_when_registering" ;) MPI_Comm comm_world; msg_bar_t finalization_barrier; }; @@ -42,7 +40,6 @@ using simgrid::smpi::app::Instance; static std::map smpi_instances; extern int process_count; // How many processes have been allocated over all instances? -extern int* index_to_process_data; /** \ingroup smpi_simulation * \brief Registers a running instance of a MPI program. @@ -61,14 +58,13 @@ void SMPI_app_instance_register(const char *name, xbt_main_func_t code, int num_ static int already_called = 0; if (not already_called) { already_called = 1; - std::vector list; - simgrid::s4u::Engine::getInstance()->getHostList(&list); + std::vector list = simgrid::s4u::Engine::get_instance()->get_all_hosts(); for (auto const& host : list) { - host->extension_set(new simgrid::smpi::SmpiHost(host)); + host->extension_set(new simgrid::smpi::Host(host)); } } - Instance instance(name, num_processes, process_count, MPI_COMM_NULL, MSG_barrier_init(num_processes)); + Instance instance(std::string(name), num_processes, process_count, MPI_COMM_NULL, MSG_barrier_init(num_processes)); MPI_Group group = new simgrid::smpi::Group(instance.size); instance.comm_world = new simgrid::smpi::Comm(group, nullptr); MPI_Attr_put(instance.comm_world, MPI_UNIVERSE_SIZE, reinterpret_cast(instance.size)); @@ -78,21 +74,15 @@ void SMPI_app_instance_register(const char *name, xbt_main_func_t code, int num_ smpi_instances.insert(std::pair(name, instance)); } -void smpi_deployment_register_process(const char* instance_id, int rank, int index) +void smpi_deployment_register_process(const std::string instance_id, int rank, simgrid::s4u::ActorPtr actor) { - if (smpi_instances.empty()) { // no instance registered, we probably used smpirun. - index_to_process_data[index]=index; - return; - } - Instance& instance = smpi_instances.at(instance_id); instance.present_processes++; - index_to_process_data[index] = instance.index + rank; - instance.comm_world->group()->set_mapping(index, rank); + instance.comm_world->group()->set_mapping(actor, rank); } -MPI_Comm* smpi_deployment_comm_world(const char* instance_id) +MPI_Comm* smpi_deployment_comm_world(const std::string instance_id) { if (smpi_instances.empty()) { // no instance registered, we probably used smpirun. return nullptr; @@ -101,7 +91,7 @@ MPI_Comm* smpi_deployment_comm_world(const char* instance_id) return &instance.comm_world; } -msg_bar_t smpi_deployment_finalization_barrier(const char* instance_id) +msg_bar_t smpi_deployment_finalization_barrier(const std::string instance_id) { if (smpi_instances.empty()) { // no instance registered, we probably used smpirun. return nullptr;