#include "src/kernel/actor/SimcallObserver.hpp"
#include "simgrid/s4u/Host.hpp"
#include "src/kernel/activity/CommImpl.hpp"
+#include "src/kernel/activity/MailboxImpl.hpp"
#include "src/kernel/activity/MutexImpl.hpp"
#include "src/kernel/actor/ActorImpl.hpp"
#include "src/mc/mc_config.hpp"
+#include <sstream>
+
XBT_LOG_NEW_DEFAULT_SUBCATEGORY(mc_observer, mc, "Logging specific to MC simcall observation");
namespace simgrid {
namespace kernel {
namespace actor {
+void SimcallObserver::serialize(std::stringstream& stream) const
+{
+ stream << (short)mc::Transition::Type::UNKNOWN;
+}
bool SimcallObserver::depends(SimcallObserver* other)
{
THROW_UNIMPLEMENTED;
{
return get_issuer() == other->get_issuer();
}
+void RandomSimcall::serialize(std::stringstream& stream) const
+{
+ stream << (short)mc::Transition::Type::RANDOM << ' ';
+ stream << min_ << ' ' << max_;
+}
+
bool MutexSimcall::depends(SimcallObserver* other)
{
if (dynamic_cast<RandomSimcall*>(other) != nullptr)
return true; // Depend on things we don't know for sure that they are independent
}
-std::string SimcallObserver::to_string(int /*times_considered*/) const
-{
- return simgrid::xbt::string_printf("[(%ld)%s (%s)] ", issuer_->get_pid(), issuer_->get_host()->get_cname(),
- issuer_->get_cname());
-}
-
-std::string SimcallObserver::dot_label(int /*times_considered*/) const
-{
- if (issuer_->get_host())
- return xbt::string_printf("[(%ld)%s] ", issuer_->get_pid(), issuer_->get_host()->get_cname());
- return xbt::string_printf("[(%ld)] ", issuer_->get_pid());
-}
-
-std::string RandomSimcall::to_string(int times_considered) const
-{
- return SimcallObserver::to_string(times_considered) + "MC_RANDOM(" + std::to_string(times_considered) + ")";
-}
-
-std::string RandomSimcall::dot_label(int times_considered) const
-{
- return SimcallObserver::dot_label(times_considered) + "MC_RANDOM(" + std::to_string(next_value_) + ")";
-}
-
void RandomSimcall::prepare(int times_considered)
{
next_value_ = min_ + times_considered;
XBT_DEBUG("MC_RANDOM(%d, %d) will return %d after %d times", min_, max_, next_value_, times_considered);
}
-int RandomSimcall::get_max_consider() const
+int RandomSimcall::get_max_consider()
{
return max_ - min_ + 1;
}
-std::string MutexUnlockSimcall::to_string(int times_considered) const
-{
- return SimcallObserver::to_string(times_considered) + "Mutex UNLOCK";
-}
-
-std::string MutexUnlockSimcall::dot_label(int times_considered) const
-{
- return SimcallObserver::dot_label(times_considered) + "Mutex UNLOCK";
-}
-
+/*
std::string MutexLockSimcall::to_string(int times_considered) const
{
auto mutex = get_mutex();
res += ", owner = " + std::to_string(mutex->get_owner() ? mutex->get_owner()->get_pid() : -1);
res += ", sleeping = n/a)";
return res;
-}
-
-std::string MutexLockSimcall::dot_label(int times_considered) const
-{
- return SimcallObserver::dot_label(times_considered) + (blocking_ ? "Mutex LOCK" : "Mutex TRYLOCK");
-}
+}*/
-bool MutexLockSimcall::is_enabled() const
+bool MutexLockSimcall::is_enabled()
{
return not blocking_ || get_mutex()->get_owner() == nullptr || get_mutex()->get_owner() == get_issuer();
}
-std::string ConditionWaitSimcall::to_string(int times_considered) const
-{
- std::string res = SimcallObserver::to_string(times_considered) + "Condition WAIT";
- res += "(" + (timeout_ == -1.0 ? "" : std::to_string(timeout_)) + ")";
- return res;
-}
-
-std::string ConditionWaitSimcall::dot_label(int times_considered) const
-{
- return SimcallObserver::dot_label(times_considered) + "Condition WAIT";
-}
-
-bool ConditionWaitSimcall::is_enabled() const
+bool ConditionWaitSimcall::is_enabled()
{
static bool warned = false;
if (not warned) {
return true;
}
-std::string SemAcquireSimcall::to_string(int times_considered) const
-{
- std::string res = SimcallObserver::to_string(times_considered) + "Sem ACQUIRE";
- res += "(" + (timeout_ == -1.0 ? "" : std::to_string(timeout_)) + ")";
- return res;
-}
-
-std::string SemAcquireSimcall::dot_label(int times_considered) const
-{
- return SimcallObserver::dot_label(times_considered) + "Sem ACQUIRE";
-}
-
-bool SemAcquireSimcall::is_enabled() const
+bool SemAcquireSimcall::is_enabled()
{
static bool warned = false;
if (not warned) {
return true;
}
-int ActivityTestanySimcall::get_max_consider() const
+ActivityTestanySimcall::ActivityTestanySimcall(ActorImpl* actor, const std::vector<activity::ActivityImpl*>& activities)
+ : ResultingSimcall(actor, -1), activities_(activities)
{
- // Only Comms are of interest to MC for now. When all types of activities can be consider, this function can simply
- // return the size of activities_.
- int count = 0;
- for (const auto& act : activities_)
- if (dynamic_cast<activity::CommImpl*>(act) != nullptr)
- count++;
- return count;
}
-std::string ActivityTestanySimcall::to_string(int times_considered) const
+int ActivityTestanySimcall::get_max_consider()
{
- std::string res = SimcallObserver::to_string(times_considered);
- if (times_considered == -1) {
- res += "TestAny FALSE(-)";
- } else {
- res += "TestAny(" + xbt::string_printf("(%d of %zu)", times_considered + 1, activities_.size());
- }
-
- return res;
+ indexes_.clear();
+ // list all the activities that are ready
+ for (unsigned i = 0; i < activities_.size(); i++)
+ if (activities_[i]->test(get_issuer()))
+ indexes_.push_back(i);
+ return indexes_.size() + 1;
}
-std::string ActivityTestanySimcall::dot_label(int times_considered) const
+void ActivityTestanySimcall::prepare(int times_considered)
{
- std::string res = SimcallObserver::dot_label(times_considered) + "TestAny ";
- if (times_considered == -1) {
- res += "FALSE";
+ if (times_considered < static_cast<int>(indexes_.size()))
+ next_value_ = indexes_.at(times_considered);
+ else
+ next_value_ = -1;
+}
+static void serialize_activity_test(const activity::ActivityImpl* act, std::stringstream& stream)
+{
+ if (auto* comm = dynamic_cast<activity::CommImpl const*>(act)) {
+ stream << " " << (short)mc::Transition::Type::COMM_TEST;
+ stream << ' ' << (uintptr_t)comm;
+ stream << ' ' << (comm->src_actor_ != nullptr ? comm->src_actor_->get_pid() : -1);
+ stream << ' ' << (comm->dst_actor_ != nullptr ? comm->dst_actor_->get_pid() : -1);
+ stream << ' ' << comm->get_mailbox_id();
+ stream << ' ' << (uintptr_t)comm->src_buff_ << ' ' << (uintptr_t)comm->dst_buff_ << ' ' << comm->src_buff_size_;
} else {
- res += xbt::string_printf("TRUE [%d of %zu]", times_considered + 1, activities_.size());
+ stream << (short)mc::Transition::Type::UNKNOWN;
}
- return res;
}
-
-std::string ActivityTestSimcall::to_string(int times_considered) const
+void ActivityTestanySimcall::serialize(std::stringstream& stream) const
{
- std::string res = SimcallObserver::to_string(times_considered) + "Test ";
- auto* comm = dynamic_cast<activity::CommImpl*>(activity_);
- if (comm) {
- if (comm->src_actor_.get() == nullptr || comm->dst_actor_.get() == nullptr) {
- res += "FALSE(comm=";
- res += XBT_LOG_ISENABLED(mc_observer, xbt_log_priority_verbose) ? xbt::string_printf("%p)", comm)
- : "(verbose only))";
- } else {
- res += "TRUE(comm=";
-
- auto src = comm->src_actor_;
- auto dst = comm->dst_actor_;
- res +=
- XBT_LOG_ISENABLED(mc_observer, xbt_log_priority_verbose) ? xbt::string_printf("%p", comm) : "(verbose only) ";
- res += xbt::string_printf("[(%ld)%s (%s) ", src->get_pid(), src->get_host()->get_cname(), src->get_cname()) +
- "-> " +
- xbt::string_printf("(%ld)%s (%s)])", dst->get_pid(), dst->get_host()->get_cname(), dst->get_cname());
- }
+ stream << (short)mc::Transition::Type::TESTANY << ' ' << activities_.size() << ' ';
+ for (auto const& act : activities_) {
+ serialize_activity_test(act, stream);
+ stream << ' ';
}
- return res;
}
-
-std::string ActivityTestSimcall::dot_label(int times_considered) const
+void ActivityTestSimcall::serialize(std::stringstream& stream) const
+{
+ serialize_activity_test(activity_, stream);
+}
+static void serialize_activity_wait(const activity::ActivityImpl* act, bool timeout, std::stringstream& stream)
{
- std::string res = SimcallObserver::dot_label(times_considered) + "Test ";
- auto* comm = dynamic_cast<activity::CommImpl*>(activity_);
- if (comm && (comm->src_actor_.get() == nullptr || comm->dst_actor_.get() == nullptr)) {
- res += "FALSE";
+ if (auto* comm = dynamic_cast<activity::CommImpl const*>(act)) {
+ stream << (short)mc::Transition::Type::COMM_WAIT << ' ';
+ stream << timeout << ' ' << (uintptr_t)comm;
+
+ stream << ' ' << (comm->src_actor_ != nullptr ? comm->src_actor_->get_pid() : -1);
+ stream << ' ' << (comm->dst_actor_ != nullptr ? comm->dst_actor_->get_pid() : -1);
+ stream << ' ' << comm->get_mailbox_id();
+ stream << ' ' << (uintptr_t)comm->src_buff_ << ' ' << (uintptr_t)comm->dst_buff_ << ' ' << comm->src_buff_size_;
} else {
- res += "TRUE";
+ stream << (short)mc::Transition::Type::UNKNOWN;
}
- return res;
}
-std::string ActivityWaitSimcall::to_string(int times_considered) const
+void ActivityWaitSimcall::serialize(std::stringstream& stream) const
{
- std::string res = SimcallObserver::to_string(times_considered);
- auto* comm = dynamic_cast<activity::CommImpl*>(activity_);
- if (comm == nullptr)
- return res;
- if (times_considered == -1) {
- res += "WaitTimeout(comm=" + (XBT_LOG_ISENABLED(mc_observer, xbt_log_priority_verbose)
- ? xbt::string_printf("%p)", comm)
- : "(verbose only))");
- } else {
- res += "Wait(comm=";
-
- auto src = comm->src_actor_;
- auto dst = comm->dst_actor_;
- res +=
- XBT_LOG_ISENABLED(mc_observer, xbt_log_priority_verbose) ? xbt::string_printf("%p", comm) : "(verbose only) ";
- res += xbt::string_printf("[(%ld)%s (%s) ", src->get_pid(), src->get_host()->get_cname(), src->get_cname()) +
- "-> " + xbt::string_printf("(%ld)%s (%s)])", dst->get_pid(), dst->get_host()->get_cname(), dst->get_cname());
+ serialize_activity_wait(activity_, timeout_ > 0, stream);
+}
+void ActivityWaitanySimcall::serialize(std::stringstream& stream) const
+{
+ stream << (short)mc::Transition::Type::WAITANY << ' ' << activities_.size() << ' ';
+ for (auto const& act : activities_) {
+ serialize_activity_wait(act, timeout_ > 0, stream);
+ stream << ' ';
}
- return res;
+}
+ActivityWaitanySimcall::ActivityWaitanySimcall(ActorImpl* actor, const std::vector<activity::ActivityImpl*>& activities,
+ double timeout)
+ : ResultingSimcall(actor, -1), activities_(activities), timeout_(timeout)
+{
}
-std::string ActivityWaitSimcall::dot_label(int times_considered) const
+bool ActivityWaitSimcall::is_enabled()
{
- std::string res = SimcallObserver::dot_label(times_considered);
- res += (times_considered == -1) ? "WaitTimeout " : "Wait ";
-
- auto* comm = dynamic_cast<activity::CommImpl*>(activity_);
- if (comm) {
- auto src = comm->src_actor_;
- auto dst = comm->dst_actor_;
- res += " [(" + std::to_string(src ? src->get_pid() : 0) + ")";
- res += "->(" + std::to_string(dst ? dst->get_pid() : 0) + ")]";
- }
- return res;
+ // FIXME: if _sg_mc_timeout == 1 and if we have either a sender or receiver timeout, the transition is enabled
+ // because even if the communication is not ready, it can timeout and won't block.
+
+ return activity_->test(get_issuer());
}
-bool ActivityWaitSimcall::is_enabled() const
+bool ActivityWaitanySimcall::is_enabled()
{
- /* FIXME: check also that src and dst processes are not suspended */
- const auto* comm = dynamic_cast<activity::CommImpl*>(activity_);
- if (comm == nullptr)
- return true;
-
- if (comm->src_timeout_ || comm->dst_timeout_) {
- /* If it has a timeout it will be always be enabled (regardless of who declared the timeout),
- * because even if the communication is not ready, it can timeout and won't block. */
- if (_sg_mc_timeout == 1)
- return true;
- }
- /* On the other hand if it hasn't a timeout, check if the comm is ready.*/
- else if (comm->detached() && comm->src_actor_ == nullptr && comm->get_state() == activity::State::READY)
- return (comm->dst_actor_ != nullptr);
- return (comm->src_actor_ && comm->dst_actor_);
+ // list all the activities that are ready
+ indexes_.clear();
+ for (unsigned i = 0; i < activities_.size(); i++)
+ if (activities_[i]->test(get_issuer()))
+ indexes_.push_back(i);
+
+ // if (_sg_mc_timeout && timeout_) FIXME: deal with the potential timeout of the WaitAny
+
+ // FIXME: even if the WaitAny has no timeout, some of the activities may still have one.
+ // we should iterate over the vector searching for them
+ return not indexes_.empty();
}
-std::string ActivityWaitanySimcall::dot_label(int times_considered) const
+int ActivityWaitanySimcall::get_max_consider()
{
- return SimcallObserver::dot_label(times_considered) +
- xbt::string_printf("WaitAny [%d of %zu]", times_considered + 1, activities_.size());
+ // list all the activities that are ready
+ indexes_.clear();
+ for (unsigned i = 0; i < activities_.size(); i++)
+ if (activities_[i]->test(get_issuer()))
+ indexes_.push_back(i);
+
+ int res = indexes_.size();
+ // if (_sg_mc_timeout && timeout_)
+ // res++;
+
+ return res;
}
-bool ActivityWaitanySimcall::is_enabled() const
+void ActivityWaitanySimcall::prepare(int times_considered)
{
- // FIXME: deal with other kind of activities (Exec and I/Os)
- for (auto act : activities_) {
- const auto* comm = dynamic_cast<activity::CommImpl*>(act);
- if (comm != nullptr && comm->src_actor_ && comm->dst_actor_)
- return true;
- }
- return false;
+ if (times_considered < static_cast<int>(indexes_.size()))
+ next_value_ = indexes_.at(times_considered);
+ else
+ next_value_ = -1;
}
-int ActivityWaitanySimcall::get_max_consider() const
+void CommIsendSimcall::serialize(std::stringstream& stream) const
{
- // Only Comms are of interest to MC for now. When all types of activities can be consider, this function can simply
- // return the size of activities_.
- int count = 0;
- for (const auto& act : activities_)
- if (dynamic_cast<activity::CommImpl*>(act) != nullptr)
- count++;
- return count;
+ stream << (short)mc::Transition::Type::COMM_SEND << ' ';
+ stream << (uintptr_t)comm_ << ' ' << mbox_->get_id() << ' ' << (uintptr_t)src_buff_ << ' ' << src_buff_size_;
+ XBT_DEBUG("SendObserver comm:%p mbox:%u buff:%p size:%zu", comm_, mbox_->get_id(), src_buff_, src_buff_size_);
}
-std::string ActivityWaitanySimcall::to_string(int times_considered) const
+void CommIrecvSimcall::serialize(std::stringstream& stream) const
{
- std::string res = SimcallObserver::to_string(times_considered) + "WaitAny(";
- size_t count = activities_.size();
- if (count > 0) {
- if (auto* comm = dynamic_cast<kernel::activity::CommImpl*>(activities_[times_considered]))
- res += "comm=" +
- (XBT_LOG_ISENABLED(mc_observer, xbt_log_priority_verbose) ? xbt::string_printf("%p", comm)
- : "(verbose only)") +
- xbt::string_printf("(%d of %zu))", times_considered + 1, count);
- } else
- res += "comm at idx " + std::to_string(times_considered) + ")";
- return res;
+ stream << (short)mc::Transition::Type::COMM_RECV << ' ';
+ stream << (uintptr_t)comm_ << ' ' << mbox_->get_id() << ' ' << (uintptr_t)dst_buff_;
+ XBT_DEBUG("RecvObserver comm:%p mbox:%u buff:%p", comm_, mbox_->get_id(), dst_buff_);
}
} // namespace actor
