-
-/** Get the issuer of a simcall (`req->issuer`)
- *
- * In split-process mode, it does the black magic necessary to get an address
- * of a (shallow) copy of the data structure the issuer SIMIX actor in the local
- * address space.
- *
- * @param process the MCed process
- * @param req the simcall (copied in the local process)
- */
-smx_actor_t MC_smx_simcall_get_issuer(s_smx_simcall_t const* req)
-{
- xbt_assert(mc_model_checker != nullptr);
-
- // This is the address of the smx_actor in the MCed process:
- auto address = simgrid::mc::remote(req->issuer);
-
- // Lookup by address:
- for (auto& actor : mc_model_checker->process().actors())
- if (actor.address == address)
- return actor.copy.getBuffer();
- for (auto& actor : mc_model_checker->process().dead_actors())
- if (actor.address == address)
- return actor.copy.getBuffer();
-
- xbt_die("Issuer not found");
-}
-
-const char* MC_smx_actor_get_host_name(smx_actor_t actor)
-{
- if (mc_model_checker == nullptr)
- return actor->host->getCname();
-
- simgrid::mc::RemoteClient* process = &mc_model_checker->process();
-
- /* HACK, Horrible hack to find the offset of the id in the simgrid::s4u::Host.
-
- Offsetof is not supported for non-POD types but this should
- work in practice for the targets currently supported by the MC
- as long as we do not add funny features to the Host class
- (such as virtual base).
-
- We are using a (C++11) unrestricted union in order to avoid
- any construction/destruction of the simgrid::s4u::Host.
- */
- union fake_host {
- simgrid::s4u::Host host;
- fake_host() { /* Nothing to do*/}
- ~fake_host() { /* Nothing to do*/}
- };
- fake_host foo;
- const size_t offset = (char*)&foo.host.getName() - (char*)&foo.host;
-
- // Read the simgrid::xbt::string in the MCed process:
- simgrid::mc::ActorInformation* info = actor_info_cast(actor);
- auto remote_string_address = remote((simgrid::xbt::string_data*)((char*)actor->host + offset));
- simgrid::xbt::string_data remote_string = process->read(remote_string_address);
- char hostname[remote_string.len];
- process->read_bytes(hostname, remote_string.len + 1, remote(remote_string.data));
- info->hostname = mc_model_checker->get_host_name(hostname).c_str();
- return info->hostname;
-}
-
-const char* MC_smx_actor_get_name(smx_actor_t actor)
-{
- simgrid::mc::RemoteClient* process = &mc_model_checker->process();
- if (mc_model_checker == nullptr)
- return actor->name.c_str();
-
- simgrid::mc::ActorInformation* info = actor_info_cast(actor);
- if (info->name.empty()) {
- simgrid::xbt::string_data string_data = simgrid::xbt::string::to_string_data(actor->name);
- info->name = process->read_string(remote(string_data.data), string_data.len);
- }
- return info->name.c_str();
-}
-
-#if HAVE_SMPI
-int MC_smpi_process_count()
-{
- if (mc_model_checker == nullptr)
- return smpi_process_count();
- int res;
- mc_model_checker->process().read_variable("process_count",
- &res, sizeof(res));
- return res;
-}
-#endif
-
-unsigned long MC_smx_get_maxpid()
-{
- unsigned long maxpid;
- mc_model_checker->process().read_variable("simix_process_maxpid",
- &maxpid, sizeof(maxpid));
- return maxpid;
-}