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;
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<bool>("smpi/display-timing", "Whether we should display the timing after simulation.", false);
simgrid::config::declare_flag<bool>("smpi/keep-temps", "Whether we should keep the generated temporary files.", false);
if (default_privatization == nullptr)
default_privatization = "no";
-
- simgrid::config::declare_flag<std::string>( "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<std::string>(
+ "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<std::string>("smpi/privatize-libs",
"Add libraries (; separated) to privatize (libgfortran for example)."
"smpi/ois", "Small messages timings (MPI_Isend minimum time for small messages)", "0:0:0:0:0");
simgrid::config::declare_flag<std::string>(
"smpi/or", "Small messages timings (MPI_Recv minimum time for small messages)", "0:0:0:0:0");
- _smpi_options_initialized=true;
+
+ simgrid::config::declare_flag<bool>("smpi/finalization-barrier", "Do we add a barrier in MPI_Finalize or not", false);
+
+ smpi_options_initialized = true;
}
void smpi_check_options()