-
-/** 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 process in the local
- * address space.
- *
- * @param process the MCed process
- * @param req the simcall (copied in the local process)
- */
-smx_process_t MC_smx_simcall_get_issuer(s_smx_simcall_t const* req)
-{
- xbt_assert(mc_mode == MC_MODE_SERVER);
-
- // This is the address of the smx_process in the MCed process:
- auto address = simgrid::mc::remote(req->issuer);
-
- // Lookup by address:
- for (auto& p : mc_model_checker->process().simix_processes())
- if (p.address == address)
- return &p.copy;
- for (auto& p : mc_model_checker->process().old_simix_processes())
- if (p.address == address)
- return &p.copy;
-
- xbt_die("Issuer not found");
-}
-
-const char* MC_smx_process_get_host_name(smx_process_t p)
-{
- if (mc_mode == MC_MODE_CLIENT)
- return sg_host_get_name(p->host);
-
- simgrid::mc::Process* 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 pratice 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() {}
- ~fake_host() {}
- };
- fake_host foo;
- const size_t offset = (char*) &foo.host.name() - (char*) &foo.host;
-
- // Read the simgrid::xbt::string in the MCed process:
- simgrid::mc::SimixProcessInformation* info = process_info_cast(p);
- simgrid::xbt::string_data remote_string;
- auto remote_string_address = remote(
- (simgrid::xbt::string_data*) ((char*) p->host + offset));
- process->read_bytes(&remote_string, sizeof(remote_string), 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);
- return info->hostname;
-}
-
-const char* MC_smx_process_get_name(smx_process_t p)
-{
- simgrid::mc::Process* process = &mc_model_checker->process();
- if (mc_mode == MC_MODE_CLIENT)
- return p->name;
- if (!p->name)
- return nullptr;
-
- simgrid::mc::SimixProcessInformation* info = process_info_cast(p);
- if (info->name.empty())
- info->name = process->read_string(p->name);
- return info->name.c_str();
-}
-
-#if HAVE_SMPI
-int MC_smpi_process_count(void)
-{
- if (mc_mode == MC_MODE_CLIENT)
- 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(void)
-{
- unsigned long maxpid;
- mc_model_checker->process().read_variable("simix_process_maxpid",
- &maxpid, sizeof(maxpid));
- return maxpid;
-}