1 /* Copyright (c) 2007-2023. The SimGrid Team. All rights reserved. */
3 /* This program is free software; you can redistribute it and/or modify it
4 * under the terms of the license (GNU LGPL) which comes with this package. */
6 #include "smpi_f2c.hpp"
8 #include "src/smpi/include/smpi_actor.hpp"
9 #include "src/instr/instr_smpi.hpp"
11 const int mpi_in_place_ = -222;
12 const int mpi_bottom_ = -111;
13 const int mpi_status_ignore_ = 0;
14 const int mpi_statuses_ignore_ = 0;
16 namespace simgrid::smpi {
18 std::unique_ptr<F2C::f2c_lookup_type> F2C::f2c_lookup_ = nullptr;
20 F2C::f2c_lookup_type::size_type F2C::num_default_handles_ = 0;
22 // Keep it non trivially-constructible, or it will break MC+smpi on FreeBSD with Clang (don't ask why)
28 if (auto loc = smpi_process()->call_location(); loc && loc->linenumber != 0)
29 call_location_= std::string (loc->filename + ":" + std::to_string(loc->linenumber));
30 my_f2c_id_ = global_f2c_id();
31 (*f2c_lookup_)[my_f2c_id_] = this;
41 /* this function wasn't found, add it */
52 auto comm = f2c_lookup_->find(id);
53 return comm == f2c_lookup_->end() ? nullptr : comm->second;
58 } // namespace simgrid::smpi