X-Git-Url: http://info.iut-bm.univ-fcomte.fr/pub/gitweb/simgrid.git/blobdiff_plain/87dd4584804ecf97b8bd32cec01e31a9cdc0e541..3f9b311ec56db95ec539001a860ae3c838c48312:/src/mc/api/State.cpp diff --git a/src/mc/api/State.cpp b/src/mc/api/State.cpp index 3a1a0ac47d..f537a484b5 100644 --- a/src/mc/api/State.cpp +++ b/src/mc/api/State.cpp @@ -5,9 +5,12 @@ #include "src/mc/api/State.hpp" #include "src/mc/api/strategy/BasicStrategy.hpp" -#include "src/mc/api/strategy/WaitStrategy.hpp" +#include "src/mc/api/strategy/MaxMatchComm.hpp" +#include "src/mc/api/strategy/MinMatchComm.hpp" +#include "src/mc/api/strategy/UniformStrategy.hpp" #include "src/mc/explo/Exploration.hpp" #include "src/mc/mc_config.hpp" +#include "xbt/random.hpp" #include #include @@ -21,21 +24,20 @@ long State::expended_states_ = 0; State::State(RemoteApp& remote_app) : num_(++expended_states_) { XBT_VERB("Creating a guide for the state"); + if (_sg_mc_strategy == "none") strategy_ = std::make_shared(); - else if (_sg_mc_strategy == "nb_wait") - strategy_ = std::make_shared(); - else + else if (_sg_mc_strategy == "max_match_comm") + strategy_ = std::make_shared(); + else if (_sg_mc_strategy == "min_match_comm") + strategy_ = std::make_shared(); + else if (_sg_mc_strategy == "uniform") { + xbt::random::set_mersenne_seed(_sg_mc_random_seed); + strategy_ = std::make_shared(); + } else THROW_IMPOSSIBLE; remote_app.get_actors_status(strategy_->actors_to_run_); - -#if SIMGRID_HAVE_STATEFUL_MC - /* Stateful model checking */ - if ((_sg_mc_checkpoint > 0 && (num_ % _sg_mc_checkpoint == 0)) || _sg_mc_termination) - system_state_ = std::make_shared(num_, remote_app.get_page_store(), - *remote_app.get_remote_process_memory()); -#endif } State::State(RemoteApp& remote_app, std::shared_ptr parent_state) @@ -43,37 +45,32 @@ State::State(RemoteApp& remote_app, std::shared_ptr parent_state) { if (_sg_mc_strategy == "none") strategy_ = std::make_shared(); - else if (_sg_mc_strategy == "nb_wait") - strategy_ = std::make_shared(); + else if (_sg_mc_strategy == "max_match_comm") + strategy_ = std::make_shared(); + else if (_sg_mc_strategy == "min_match_comm") + strategy_ = std::make_shared(); + else if (_sg_mc_strategy == "uniform") + strategy_ = std::make_shared(); else THROW_IMPOSSIBLE; - *strategy_ = *(parent_state->strategy_); + strategy_->copy_from(parent_state_->strategy_.get()); remote_app.get_actors_status(strategy_->actors_to_run_); -#if SIMGRID_HAVE_STATEFUL_MC /* Stateful model checking */ - if ((_sg_mc_checkpoint > 0 && (num_ % _sg_mc_checkpoint == 0)) || _sg_mc_termination) - system_state_ = std::make_shared(num_, remote_app.get_page_store(), - *remote_app.get_remote_process_memory()); -#endif - - /* If we want sleep set reduction, copy the sleep set and eventually removes things from it */ - if (_sg_mc_sleep_set) { - /* For each actor in the previous sleep set, keep it if it is not dependent with current transition. - * And if we kept it and the actor is enabled in this state, mark the actor as already done, so that - * it is not explored*/ - for (auto& [aid, transition] : parent_state_->get_sleep_set()) { - if (not incoming_transition_->depends(&transition)) { - sleep_set_.try_emplace(aid, transition); - if (strategy_->actors_to_run_.count(aid) != 0) { - XBT_DEBUG("Actor %ld will not be explored, for it is in the sleep set", aid); - - strategy_->actors_to_run_.at(aid).mark_done(); - } - } else - XBT_DEBUG("Transition >>%s<< removed from the sleep set because it was dependent with incoming >>%s<<", - transition.to_string().c_str(), incoming_transition_->to_string().c_str()); - } + /* Copy the sleep set and eventually removes things from it: */ + /* For each actor in the previous sleep set, keep it if it is not dependent with current transition. + * And if we kept it and the actor is enabled in this state, mark the actor as already done, so that + * it is not explored*/ + for (const auto& [aid, transition] : parent_state_->get_sleep_set()) { + if (not incoming_transition_->depends(transition.get())) { + sleep_set_.try_emplace(aid, transition); + if (strategy_->actors_to_run_.count(aid) != 0) { + XBT_DEBUG("Actor %ld will not be explored, for it is in the sleep set", aid); + strategy_->actors_to_run_.at(aid).mark_done(); + } + } else + XBT_DEBUG("Transition >>%s<< removed from the sleep set because it was dependent with incoming >>%s<<", + transition->to_string().c_str(), incoming_transition_->to_string().c_str()); } } @@ -122,17 +119,7 @@ std::pair State::next_transition_guided() const aid_t State::next_odpor_transition() const { - const auto first_single_process_branch = - std::find_if(wakeup_tree_.begin(), wakeup_tree_.end(), - [=](const odpor::WakeupTreeNode* node) { return node->is_single_process(); }); - if (first_single_process_branch != wakeup_tree_.end()) { - const auto* wakeup_tree_node = *first_single_process_branch; - xbt_assert(wakeup_tree_node->get_sequence().size() == 1, "We claimed that the selected branch " - "contained only a single process, yet more " - "than one process was actually contained in it :("); - return wakeup_tree_node->get_first_actor(); - } - return -1; + return wakeup_tree_.get_min_single_process_actor().value_or(-1); } // This should be done in GuidedState, or at least interact with it @@ -181,7 +168,27 @@ std::unordered_set State::get_backtrack_set() const { std::unordered_set actors; for (const auto& [aid, state] : get_actors_list()) { - if (state.is_todo() or state.is_done()) { + if (state.is_todo() || state.is_done()) { + actors.insert(aid); + } + } + return actors; +} + +std::unordered_set State::get_sleeping_actors() const +{ + std::unordered_set actors; + for (const auto& [aid, _] : get_sleep_set()) { + actors.insert(aid); + } + return actors; +} + +std::unordered_set State::get_enabled_actors() const +{ + std::unordered_set actors; + for (const auto& [aid, state] : get_actors_list()) { + if (state.is_enabled()) { actors.insert(aid); } } @@ -192,6 +199,9 @@ void State::seed_wakeup_tree_if_needed(const odpor::Execution& prior) { // TODO: It would be better not to have such a flag. if (has_initialized_wakeup_tree) { + XBT_DEBUG("Reached a node with the following initialized WuT:"); + XBT_DEBUG("\n%s", wakeup_tree_.string_of_whole_tree().c_str()); + return; } // TODO: Note that the next action taken by the actor may be updated @@ -199,8 +209,16 @@ void State::seed_wakeup_tree_if_needed(const odpor::Execution& prior) // tree and decided upon "happens-before" at that point for different // executions :( if (wakeup_tree_.empty()) { - if (const aid_t next = std::get<0>(next_transition_guided()); next >= 0) { - wakeup_tree_.insert(prior, odpor::PartialExecution{strategy_->actors_to_run_.at(next).get_transition()}); + // Find an enabled transition to pick + for (const auto& [_, actor] : get_actors_list()) { + if (actor.is_enabled()) { + // For each variant of the transition that is enabled, we want to insert the action into the tree. + // This ensures that all variants are searched + for (unsigned times = 0; times < actor.get_max_considered(); ++times) { + wakeup_tree_.insert(prior, odpor::PartialExecution{actor.get_transition(times)}); + } + break; // Only one actor gets inserted (see pseudocode) + } } } has_initialized_wakeup_tree = true; @@ -208,32 +226,74 @@ void State::seed_wakeup_tree_if_needed(const odpor::Execution& prior) void State::sprout_tree_from_parent_state() { + + XBT_DEBUG("Initializing Wut with parent one:"); + XBT_DEBUG("\n%s", parent_state_->wakeup_tree_.string_of_whole_tree().c_str()); + xbt_assert(parent_state_ != nullptr, "Attempting to construct a wakeup tree for the root state " "(or what appears to be, rather for state without a parent defined)"); - const auto p = parent_state_->get_transition_out()->aid_; - const auto branch = std::find_if( - parent_state_->wakeup_tree_.begin(), parent_state_->wakeup_tree_.end(), - [=](const odpor::WakeupTreeNode* node) { return node->is_single_process() && node->get_first_actor() == p; }); - xbt_assert(branch != parent_state_->wakeup_tree_.end(), - "Attempted to create a subtree from the wakeup tree of the parent " - "state using actor `%ld`, but no such subtree could be found. " - "This implies that the wakeup tree management is broken, " - "and more specifically that subtree formation is not working " - "as intended; for if this state was generated by the parent " - "having taken an action by actor `%ld`, this implies that " - "ODPOR found `%ld` as a candidate branch prior", - p, p, p); - this->wakeup_tree_ = odpor::WakeupTree::make_subtree_rooted_at(*branch); -} - -void State::remove_subtree_starting_with(aid_t p) -{ - const auto branch = std::find_if(wakeup_tree_.begin(), wakeup_tree_.end(), [=](const odpor::WakeupTreeNode* node) { - return node->is_single_process() && node->get_first_actor() == p; - }); - xbt_assert(branch != wakeup_tree_.end(), "Attempted to remove a subtree of this state's " - "wakeup tree that does not exist"); - this->wakeup_tree_.remove_subtree_rooted_at(*branch); + const auto min_process_node = parent_state_->wakeup_tree_.get_min_single_process_node(); + xbt_assert(min_process_node.has_value(), "Attempting to construct a subtree for a substate from a " + "parent with an empty wakeup tree. This indicates either that ODPOR " + "actor selection in State.cpp is incorrect, or that the code " + "deciding when to make subtrees in ODPOR is incorrect"); + if (not(get_transition_in()->aid_ == min_process_node.value()->get_actor() && + get_transition_in()->type_ == min_process_node.value()->get_action()->type_)) { + XBT_ERROR("We tried to make a subtree from a parent state who claimed to have executed `%s` on actor %ld " + "but whose wakeup tree indicates it should have executed `%s` on actor %ld. This indicates " + "that exploration is not following ODPOR. Are you sure you're choosing actors " + "to schedule from the wakeup tree? Trace so far:", + get_transition_in()->to_string(false).c_str(), get_transition_in()->aid_, + min_process_node.value()->get_action()->to_string(false).c_str(), min_process_node.value()->get_actor()); + for (auto const& elm : Exploration::get_instance()->get_textual_trace()) + XBT_ERROR("%s", elm.c_str()); + xbt_abort(); + } + this->wakeup_tree_ = odpor::WakeupTree::make_subtree_rooted_at(min_process_node.value()); +} + +void State::remove_subtree_using_current_out_transition() +{ + if (auto out_transition = get_transition_out(); out_transition != nullptr) { + if (const auto min_process_node = wakeup_tree_.get_min_single_process_node(); min_process_node.has_value()) { + xbt_assert((out_transition->aid_ == min_process_node.value()->get_actor()) && + (out_transition->type_ == min_process_node.value()->get_action()->type_), + "We tried to make a subtree from a parent state who claimed to have executed `%s` " + "but whose wakeup tree indicates it should have executed `%s`. This indicates " + "that exploration is not following ODPOR. Are you sure you're choosing actors " + "to schedule from the wakeup tree?", + out_transition->to_string(false).c_str(), + min_process_node.value()->get_action()->to_string(false).c_str()); + } + } + wakeup_tree_.remove_min_single_process_subtree(); +} + +void State::remove_subtree_at_aid(const aid_t proc) +{ + wakeup_tree_.remove_subtree_at_aid(proc); +} + +odpor::WakeupTree::InsertionResult State::insert_into_wakeup_tree(const odpor::PartialExecution& pe, + const odpor::Execution& E) +{ + return this->wakeup_tree_.insert(E, pe); +} + +void State::do_odpor_unwind() +{ + if (auto out_transition = get_transition_out(); out_transition != nullptr) { + remove_subtree_using_current_out_transition(); + + // Only when we've exhausted all variants of the transition which + // can be chosen from this state do we finally add the actor to the + // sleep set. This ensures that the current logic handling sleep sets + // works with ODPOR in the way we intend it to work. There is not a + // good way to perform transition equality in SimGrid; instead, we + // effectively simply check for the presence of an actor in the sleep set. + if (not get_actors_list().at(out_transition->aid_).has_more_to_consider()) + add_sleep_set(std::move(out_transition)); + } } } // namespace simgrid::mc