std::unordered_map<std::string, double> location2speedup;
static std::map</*process_id*/ simgrid::s4u::Actor const*, simgrid::smpi::ActorExt*> process_data;
-int process_count = 0;
static int smpi_exit_status = 0;
-int smpi_universe_size = 0;
extern double smpi_total_benched_time;
xbt_os_timer_t global_timer;
static std::vector<std::string> privatize_libs_paths;
void (*smpi_comm_copy_data_callback)(simgrid::kernel::activity::CommImpl*, void*,
size_t) = &smpi_comm_copy_buffer_callback;
-int smpi_process_count()
-{
- return process_count;
-}
-
simgrid::smpi::ActorExt* smpi_process()
{
simgrid::s4u::ActorPtr me = simgrid::s4u::Actor::self();
simgrid::smpi::Colls::set_collectives();
simgrid::smpi::Colls::smpi_coll_cleanup_callback = nullptr;
smpi_cpu_threshold = simgrid::config::get_value<double>("smpi/cpu-threshold");
- smpi_host_speed = simgrid::config::get_value<double>("smpi/host-speed");
- xbt_assert(smpi_host_speed > 0.0, "You're trying to set the host_speed to a non-positive value (given: %f)", smpi_host_speed);
+ if (smpi_cpu_threshold < 0)
+ smpi_cpu_threshold = DBL_MAX;
+
+ smpi_host_speed = simgrid::config::get_value<double>("smpi/host-speed");
std::string smpi_privatize_option = simgrid::config::get_value<std::string>("smpi/privatization");
if (smpi_privatize_option == "no" || smpi_privatize_option == "0")
smpi_privatize_global_variables = SmpiPrivStrategies::NONE;
smpi_privatize_global_variables = SmpiPrivStrategies::DLOPEN;
}
- if (smpi_cpu_threshold < 0)
- smpi_cpu_threshold = DBL_MAX;
-
std::string val = simgrid::config::get_value<std::string>("smpi/shared-malloc");
if ((val == "yes") || (val == "1") || (val == "on") || (val == "global")) {
smpi_cfg_shared_malloc = SharedMallocType::GLOBAL;
char fullpath[512] = {'\0'};
strncpy(fullpath, libname.c_str(), 511);
#if not defined(__APPLE__) && not defined(__HAIKU__)
- int ret = dl_iterate_phdr(visit_libs, fullpath);
- if (ret == 0)
- xbt_die("Can't find a linked %s - check the setting you gave to smpi/privatize-libs", fullpath);
- else
- XBT_DEBUG("Extra lib to privatize found : %s", fullpath);
+ xbt_assert(0 != dl_iterate_phdr(visit_libs, fullpath),
+ "Can't find a linked %s - check your settings in smpi/privatize-libs", fullpath);
+ XBT_DEBUG("Extra lib to privatize '%s' found", fullpath);
#else
- xbt_die("smpi/privatize-libs is not (yet) compatible with OSX");
+ xbt_die("smpi/privatize-libs is not (yet) compatible with OSX nor with Haiku");
#endif
privatize_libs_paths.push_back(fullpath);
dlclose(libhandle);
SMPI_app_instance_register(smpi_default_instance_name.c_str(), nullptr,
process_data.size()); // This call has a side effect on process_count...
MPI_COMM_WORLD = *smpi_deployment_comm_world(smpi_default_instance_name);
- smpi_universe_size = process_count;
-
/* Clean IO before the run */
fflush(stdout);