X-Git-Url: http://info.iut-bm.univ-fcomte.fr/pub/gitweb/simgrid.git/blobdiff_plain/19f76a4a2c1df5d324015bb32a5430769a357563..5d3cc4fa4b1428899a036b2a7c2b9c038673ed4d:/src/smpi/internals/smpi_config.cpp diff --git a/src/smpi/internals/smpi_config.cpp b/src/smpi/internals/smpi_config.cpp index 68f3b67e01..0c5dfcc98b 100644 --- a/src/smpi/internals/smpi_config.cpp +++ b/src/smpi/internals/smpi_config.cpp @@ -1,16 +1,22 @@ -/* Copyright (c) 2008-2019. The SimGrid Team. All rights reserved. */ +/* Copyright (c) 2008-2021. 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 "mc/mc.h" +#include "smpi_config.hpp" #include "include/xbt/config.hpp" +#include "mc/mc.h" #include "private.hpp" #include "smpi_coll.hpp" #include "src/simix/smx_private.hpp" +#include "xbt/parse_units.hpp" + #include /* DBL_MAX */ #include /* trim */ #include +#if SIMGRID_HAVE_MC +#include "src/mc/mc_config.hpp" +#endif #if defined(__APPLE__) # include @@ -24,16 +30,19 @@ constexpr bool HAVE_WORKING_MMAP = false; constexpr bool HAVE_WORKING_MMAP = true; #endif -bool _smpi_options_initialized=false; SharedMallocType _smpi_cfg_shared_malloc = SharedMallocType::GLOBAL; SmpiPrivStrategies _smpi_cfg_privatization = SmpiPrivStrategies::NONE; +double _smpi_cfg_host_speed; XBT_LOG_NEW_DEFAULT_SUBCATEGORY(smpi_config, smpi, "Logging specific to SMPI (config)"); -simgrid::config::Flag _smpi_cfg_host_speed{ - "smpi/host-speed", "Speed of the host running the simulation (in flop/s). " - "Used to bench the operations.", 20000.0, - [](const double& val) { xbt_assert(val > 0.0, "Invalid value (%f) for 'smpi/host-speed': it must be positive.", val); }}; +simgrid::config::Flag _smpi_cfg_host_speed_string{ + "smpi/host-speed", "Speed of the host running the simulation (in flop/s). Used to bench the operations.", "20000f", + [](const std::string& str) { + _smpi_cfg_host_speed = xbt_parse_get_speed("smpi/host-speed", 1, str, "option smpi/host-speed"); + xbt_assert(_smpi_cfg_host_speed > 0.0, "Invalid value (%s) for 'smpi/host-speed': it must be positive.", + _smpi_cfg_host_speed_string.get().c_str()); + }}; simgrid::config::Flag _smpi_cfg_simulate_computation{ "smpi/simulate-computation", "Whether the computational part of the simulated application should be simulated.", @@ -87,7 +96,7 @@ simgrid::config::Flag _smpi_cfg_comp_adjustment_file{"smpi/comp-adj std::ifstream fstream(filename); xbt_assert(fstream.is_open(), "Could not open file %s. Does it exist?", filename.c_str()); std::string line; - typedef boost::tokenizer> Tokenizer; + using Tokenizer = boost::tokenizer>; std::getline(fstream, line); // Skip the header line while (std::getline(fstream, line)) { Tokenizer tok(line); @@ -99,16 +108,28 @@ simgrid::config::Flag _smpi_cfg_comp_adjustment_file{"smpi/comp-adj } } }}; - + +simgrid::config::Flag _smpi_cfg_default_errhandler_is_error{ + "smpi/errors-are-fatal", "Whether MPI errors are fatal or just return. Default is true", true }; +simgrid::config::Flag _smpi_cfg_pedantic{ + "smpi/pedantic", "Activate extra checks that may crash slightly incorrect codes which would not crash on actual implementations", true }; #if HAVE_PAPI simgrid::config::Flag _smpi_cfg_papi_events_file{"smpi/papi-events", "This switch enables tracking the specified counters with PAPI", ""}; #endif simgrid::config::Flag _smpi_cfg_auto_shared_malloc_thresh("smpi/auto-shared-malloc-thresh", - "Threshold size for the automatic sharing of memory", + "Threshold size for the automatic sharing of memory", 0); +simgrid::config::Flag _smpi_cfg_display_alloc("smpi/display-allocs", + "Whether we should display a memory allocations analysis after simulation.", + false); + +simgrid::config::Flag _smpi_cfg_list_leaks("smpi/list-leaks", + "Whether we should display the n first MPI handle leaks (addresses and type only) after simulation", + -1); + double smpi_cfg_host_speed(){ return _smpi_cfg_host_speed; } @@ -153,6 +174,10 @@ bool smpi_cfg_trace_call_use_absolute_path(){ return _smpi_cfg_trace_call_use_absolute_path; } +bool smpi_cfg_display_alloc(){ + return _smpi_cfg_list_leaks != -1 ? true : _smpi_cfg_display_alloc; +} + std::string smpi_cfg_comp_adjustment_file(){ return _smpi_cfg_comp_adjustment_file; } @@ -165,12 +190,26 @@ double smpi_cfg_auto_shared_malloc_thresh(){ return _smpi_cfg_auto_shared_malloc_thresh; } -void smpi_init_options(){ +// public version declared in smpi.h (without parameter, and with C linkage) +void smpi_init_options() +{ + smpi_init_options_internal(false); +} + +void smpi_init_options_internal(bool called_by_smpi_main) +{ + static bool smpi_options_initialized = false; + static bool running_with_smpi_main = false; + + if (called_by_smpi_main) + running_with_smpi_main = true; + // return if already called - if(_smpi_options_initialized) + if (smpi_options_initialized) return; simgrid::config::declare_flag("smpi/display-timing", "Whether we should display the timing after simulation.", false); simgrid::config::declare_flag("smpi/keep-temps", "Whether we should keep the generated temporary files.", false); + simgrid::config::declare_flag("smpi/tmpdir", "tmp dir for dlopen files", "/tmp"); simgrid::config::declare_flag("smpi/coll-selector", "Which collective selector to use", "default"); simgrid::config::declare_flag("smpi/gather", "Which collective to use for gather", ""); @@ -189,30 +228,29 @@ void smpi_init_options(){ if (default_privatization == nullptr) default_privatization = "no"; - - simgrid::config::declare_flag( "smpi/privatization", - "How we should privatize global variable at runtime (no, yes, mmap, dlopen).", - default_privatization, [](const std::string& smpi_privatize_option){ - if (smpi_privatize_option == "no" || smpi_privatize_option == "0") - _smpi_cfg_privatization = SmpiPrivStrategies::NONE; - else if (smpi_privatize_option == "yes" || smpi_privatize_option == "1") - _smpi_cfg_privatization = SmpiPrivStrategies::DEFAULT; - else if (smpi_privatize_option == "mmap") - _smpi_cfg_privatization = SmpiPrivStrategies::MMAP; - else if (smpi_privatize_option == "dlopen") - _smpi_cfg_privatization = SmpiPrivStrategies::DLOPEN; - else - xbt_die("Invalid value for smpi/privatization: '%s'", smpi_privatize_option.c_str()); - - if (not SMPI_switch_data_segment) { - XBT_DEBUG("Running without smpi_main(); disable smpi/privatization."); - _smpi_cfg_privatization = SmpiPrivStrategies::NONE; - } - if (not HAVE_WORKING_MMAP && _smpi_cfg_privatization == SmpiPrivStrategies::MMAP) { - XBT_INFO("mmap privatization is broken on this platform, switching to dlopen privatization instead."); - _smpi_cfg_privatization = SmpiPrivStrategies::DLOPEN; - } - }); + simgrid::config::declare_flag( + "smpi/privatization", "How we should privatize global variable at runtime (no, yes, mmap, dlopen).", + default_privatization, [](const std::string& smpi_privatize_option) { + if (smpi_privatize_option == "no" || smpi_privatize_option == "0") + _smpi_cfg_privatization = SmpiPrivStrategies::NONE; + else if (smpi_privatize_option == "yes" || smpi_privatize_option == "1") + _smpi_cfg_privatization = SmpiPrivStrategies::DEFAULT; + else if (smpi_privatize_option == "mmap") + _smpi_cfg_privatization = SmpiPrivStrategies::MMAP; + else if (smpi_privatize_option == "dlopen") + _smpi_cfg_privatization = SmpiPrivStrategies::DLOPEN; + else + xbt_die("Invalid value for smpi/privatization: '%s'", smpi_privatize_option.c_str()); + + if (not running_with_smpi_main) { + XBT_DEBUG("Running without smpi_main(); disable smpi/privatization."); + _smpi_cfg_privatization = SmpiPrivStrategies::NONE; + } + if (not HAVE_WORKING_MMAP && _smpi_cfg_privatization == SmpiPrivStrategies::MMAP) { + XBT_INFO("mmap privatization is broken on this platform, switching to dlopen privatization instead."); + _smpi_cfg_privatization = SmpiPrivStrategies::DLOPEN; + } + }); simgrid::config::declare_flag("smpi/privatize-libs", "Add libraries (; separated) to privatize (libgfortran for example)." @@ -231,18 +269,10 @@ void smpi_init_options(){ "smpi/ois", "Small messages timings (MPI_Isend minimum time for small messages)", "0:0:0:0:0"); simgrid::config::declare_flag( "smpi/or", "Small messages timings (MPI_Recv minimum time for small messages)", "0:0:0:0:0"); - simgrid::config::alias("smpi/display-timing", {"smpi/display_timing"}); - simgrid::config::alias("smpi/coll-selector", {"smpi/coll_selector"}); - simgrid::config::alias("smpi/simulate-computation", {"smpi/simulate_computation"}); - simgrid::config::alias("smpi/shared-malloc", {"smpi/use_shared_malloc", "smpi/use-shared-malloc"}); - simgrid::config::alias("smpi/host-speed", {"smpi/running_power", "smpi/running-power"}); - simgrid::config::alias("smpi/cpu-threshold", {"smpi/cpu_threshold"}); - simgrid::config::alias("smpi/async-small-thresh", {"smpi/async_small_thres", "smpi/async_small_thresh"}); - simgrid::config::alias("smpi/send-is-detached-thresh", {"smpi/send_is_detached_thres", "smpi/send_is_detached_thresh"}); - simgrid::config::alias("smpi/privatization", {"smpi/privatize_global_variables", "smpi/privatize-global-variables"}); - simgrid::config::alias("smpi/reduce_scatter", {"smpi/reduce-scatter"}); - _smpi_options_initialized=true; + simgrid::config::declare_flag("smpi/finalization-barrier", "Do we add a barrier in MPI_Finalize or not", false); + + smpi_options_initialized = true; } void smpi_check_options()