src/mc/checker/SafetyChecker.cpp

   1 /* Copyright (c) 2016-2019. The SimGrid Team. All rights reserved.          */
   2
   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. */
   5
   6 #include <cassert>
   7 #include <cstdio>
   8
   9 #include <memory>
  10 #include <string>
  11 #include <vector>
  12
  13 #include <xbt/log.h>
  14 #include <xbt/sysdep.h>
  15
  16 #include "src/mc/Session.hpp"
  17 #include "src/mc/Transition.hpp"
  18 #include "src/mc/VisitedState.hpp"
  19 #include "src/mc/checker/SafetyChecker.hpp"
  20 #include "src/mc/mc_config.hpp"
  21 #include "src/mc/mc_exit.hpp"
  22 #include "src/mc/mc_private.hpp"
  23 #include "src/mc/mc_record.hpp"
  24 #include "src/mc/mc_request.hpp"
  25 #include "src/mc/mc_smx.hpp"
  26
  27 #include "src/xbt/mmalloc/mmprivate.h"
  28
  29 XBT_LOG_NEW_DEFAULT_SUBCATEGORY(mc_safety, mc, "Logging specific to MC safety verification ");
  30
  31 namespace simgrid {
  32 namespace mc {
  33
  34 void SafetyChecker::check_non_termination(State* current_state)
  35 {
  36   for (auto state = stack_.rbegin(); state != stack_.rend(); ++state)
  37     if (snapshot_equal((*state)->system_state.get(), current_state->system_state.get())) {
  38       XBT_INFO("Non-progressive cycle: state %d -> state %d", (*state)->num_, current_state->num_);
  39       XBT_INFO("******************************************");
  40       XBT_INFO("*** NON-PROGRESSIVE CYCLE DETECTED ***");
  41       XBT_INFO("******************************************");
  42       XBT_INFO("Counter-example execution trace:");
  43       for (auto const& s : mc_model_checker->getChecker()->get_textual_trace())
  44         XBT_INFO("  %s", s.c_str());
  45       dumpRecordPath();
  46       session->log_state();
  47
  48       throw TerminationError();
  49     }
  50 }
  51
  52 RecordTrace SafetyChecker::get_record_trace() // override
  53 {
  54   RecordTrace res;
  55   for (auto const& state : stack_)
  56     res.push_back(state->get_transition());
  57   return res;
  58 }
  59
  60 std::vector<std::string> SafetyChecker::get_textual_trace() // override
  61 {
  62   std::vector<std::string> trace;
  63   for (auto const& state : stack_) {
  64     int value         = state->transition_.argument_;
  65     smx_simcall_t req = &state->executed_req_;
  66     if (req)
  67       trace.push_back(request_to_string(req, value, RequestType::executed));
  68   }
  69   return trace;
  70 }
  71
  72 void SafetyChecker::log_state() // override
  73 {
  74   XBT_INFO("Expanded states = %lu", expanded_states_count_);
  75   XBT_INFO("Visited states = %lu", mc_model_checker->visited_states);
  76   XBT_INFO("Executed transitions = %lu", mc_model_checker->executed_transitions);
  77 }
  78
  79 void SafetyChecker::run()
  80 {
  81   /* This function runs the DFS algorithm the state space.
  82    * We do so iteratively instead of recursively, dealing with the call stack manually.
  83    * This allows one to explore the call stack at will. */
  84
  85   while (not stack_.empty()) {
  86     /* Get current state */
  87     State* state = stack_.back().get();
  88
  89     XBT_DEBUG("**************************************************");
  90     XBT_VERB("Exploration depth=%zu (state=%p, num %d)(%zu interleave)", stack_.size(), state, state->num_,
  91              state->interleave_size());
  92
  93     mc_model_checker->visited_states++;
  94
  95     // Backtrack if we reached the maximum depth
  96     if (stack_.size() > (std::size_t)_sg_mc_max_depth) {
  97       XBT_WARN("/!\\ Max depth reached ! /!\\ ");
  98       this->backtrack();
  99       continue;
 100     }
 101
 102     // Backtrack if we are revisiting a state we saw previously
 103     if (visited_state_ != nullptr) {
 104       XBT_DEBUG("State already visited (equal to state %d), exploration stopped on this path.",
 105                 visited_state_->original_num == -1 ? visited_state_->num : visited_state_->original_num);
 106
 107       visited_state_ = nullptr;
 108       this->backtrack();
 109       continue;
 110     }
 111
 112     // Search an enabled transition in the current state; backtrack if the interleave set is empty
 113     // get_request also sets state.transition to be the one corresponding to the returned req
 114     smx_simcall_t req = MC_state_choose_request(state);
 115     // req is now the transition of the process that was selected to be executed
 116
 117     if (req == nullptr) {
 118       XBT_DEBUG("There are no more processes to interleave. (depth %zu)", stack_.size() + 1);
 119
 120       this->backtrack();
 121       continue;
 122     }
 123
 124     // If there are processes to interleave and the maximum depth has not been
 125     // reached then perform one step of the exploration algorithm.
 126     XBT_DEBUG("Execute: %s", request_to_string(req, state->transition_.argument_, RequestType::simix).c_str());
 127
 128     std::string req_str;
 129     if (dot_output != nullptr)
 130       req_str = request_get_dot_output(req, state->transition_.argument_);
 131
 132     mc_model_checker->executed_transitions++;
 133
 134     /* Actually answer the request: let execute the selected request (MCed does one step) */
 135     this->get_session().execute(state->transition_);
 136
 137     /* Create the new expanded state (copy the state of MCed into our MCer data) */
 138     std::unique_ptr<State> next_state = std::unique_ptr<State>(new State(++expanded_states_count_));
 139
 140     if (_sg_mc_termination)
 141       this->check_non_termination(next_state.get());
 142
 143     /* Check whether we already explored next_state in the past (but only if interested in state-equality reduction) */
 144     if (_sg_mc_max_visited_states > 0)
 145       visited_state_ = visited_states_.addVisitedState(expanded_states_count_, next_state.get(), true);
 146
 147     /* If this is a new state (or if we don't care about state-equality reduction) */
 148     if (visited_state_ == nullptr) {
 149
 150       /* Get an enabled process and insert it in the interleave set of the next state */
 151       for (auto& remoteActor : mc_model_checker->process().actors()) {
 152         auto actor = remoteActor.copy.get_buffer();
 153         if (actor_is_enabled(actor)) {
 154           next_state->add_interleaving_set(actor);
 155           if (reductionMode_ == ReductionMode::dpor)
 156             break; // With DPOR, we take the first enabled transition
 157         }
 158       }
 159
 160       if (dot_output != nullptr)
 161         std::fprintf(dot_output, "\"%d\" -> \"%d\" [%s];\n", state->num_, next_state->num_, req_str.c_str());
 162
 163     } else if (dot_output != nullptr)
 164       std::fprintf(dot_output, "\"%d\" -> \"%d\" [%s];\n", state->num_,
 165                    visited_state_->original_num == -1 ? visited_state_->num : visited_state_->original_num,
 166                    req_str.c_str());
 167
 168     stack_.push_back(std::move(next_state));
 169   }
 170
 171   XBT_INFO("No property violation found.");
 172   session->log_state();
 173 }
 174
 175 void SafetyChecker::backtrack()
 176 {
 177   stack_.pop_back();
 178
 179   /* Check for deadlocks */
 180   if (mc_model_checker->checkDeadlock()) {
 181     MC_show_deadlock();
 182     throw DeadlockError();
 183   }
 184
 185   /* Traverse the stack backwards until a state with a non empty interleave set is found, deleting all the states that
 186    *  have it empty in the way. For each deleted state, check if the request that has generated it (from its
 187    *  predecessor state), depends on any other previous request executed before it. If it does then add it to the
 188    *  interleave set of the state that executed that previous request. */
 189
 190   while (not stack_.empty()) {
 191     std::unique_ptr<State> state = std::move(stack_.back());
 192     stack_.pop_back();
 193     if (reductionMode_ == ReductionMode::dpor) {
 194       smx_simcall_t req = &state->internal_req;
 195       if (req->call_ == SIMCALL_MUTEX_LOCK || req->call_ == SIMCALL_MUTEX_TRYLOCK)
 196         xbt_die("Mutex is currently not supported with DPOR,  use --cfg=model-check/reduction:none");
 197
 198       const smx_actor_t issuer = MC_smx_simcall_get_issuer(req);
 199       for (auto i = stack_.rbegin(); i != stack_.rend(); ++i) {
 200         State* prev_state = i->get();
 201         if (request_depend(req, &prev_state->internal_req)) {
 202           if (XBT_LOG_ISENABLED(mc_safety, xbt_log_priority_debug)) {
 203             XBT_DEBUG("Dependent Transitions:");
 204             int value              = prev_state->transition_.argument_;
 205             smx_simcall_t prev_req = &prev_state->executed_req_;
 206             XBT_DEBUG("%s (state=%d)", simgrid::mc::request_to_string(prev_req, value, RequestType::internal).c_str(),
 207                       prev_state->num_);
 208             value    = state->transition_.argument_;
 209             prev_req = &state->executed_req_;
 210             XBT_DEBUG("%s (state=%d)", simgrid::mc::request_to_string(prev_req, value, RequestType::executed).c_str(),
 211                       state->num_);
 212           }
 213
 214           if (not prev_state->actor_states_[issuer->get_pid()].is_done())
 215             prev_state->add_interleaving_set(issuer);
 216           else
 217             XBT_DEBUG("Process %p is in done set", req->issuer_);
 218           break;
 219         } else if (req->issuer_ == prev_state->internal_req.issuer_) {
 220           XBT_DEBUG("Simcall %s and %s with same issuer", SIMIX_simcall_name(req->call_),
 221                     SIMIX_simcall_name(prev_state->internal_req.call_));
 222           break;
 223         } else {
 224           const smx_actor_t previous_issuer = MC_smx_simcall_get_issuer(&prev_state->internal_req);
 225           XBT_DEBUG("Simcall %s, process %ld (state %d) and simcall %s, process %ld (state %d) are independent",
 226                     SIMIX_simcall_name(req->call_), issuer->get_pid(), state->num_,
 227                     SIMIX_simcall_name(prev_state->internal_req.call_), previous_issuer->get_pid(), prev_state->num_);
 228         }
 229       }
 230     }
 231
 232     if (state->interleave_size() && stack_.size() < (std::size_t)_sg_mc_max_depth) {
 233       /* We found a back-tracking point, let's loop */
 234       XBT_DEBUG("Back-tracking to state %d at depth %zu", state->num_, stack_.size() + 1);
 235       stack_.push_back(std::move(state));
 236       this->restore_state();
 237       XBT_DEBUG("Back-tracking to state %d at depth %zu done", stack_.back()->num_, stack_.size());
 238       break;
 239     } else {
 240       XBT_DEBUG("Delete state %d at depth %zu", state->num_, stack_.size() + 1);
 241     }
 242   }
 243 }
 244
 245 void SafetyChecker::restore_state()
 246 {
 247   /* Intermediate backtracking */
 248   State* last_state = stack_.back().get();
 249   if (last_state->system_state) {
 250     last_state->system_state->restore(&mc_model_checker->process());
 251     return;
 252   }
 253
 254   /* Restore the initial state */
 255   session->restore_initial_state();
 256
 257   /* Traverse the stack from the state at position start and re-execute the transitions */
 258   for (std::unique_ptr<State> const& state : stack_) {
 259     if (state == stack_.back())
 260       break;
 261     session->execute(state->transition_);
 262     /* Update statistics */
 263     mc_model_checker->visited_states++;
 264     mc_model_checker->executed_transitions++;
 265   }
 266 }
 267
 268 SafetyChecker::SafetyChecker(Session& s) : Checker(s)
 269 {
 270   reductionMode_ = reduction_mode;
 271   if (_sg_mc_termination)
 272     reductionMode_ = ReductionMode::none;
 273   else if (reductionMode_ == ReductionMode::unset)
 274     reductionMode_ = ReductionMode::dpor;
 275
 276   if (_sg_mc_termination)
 277     XBT_INFO("Check non progressive cycles");
 278   else
 279     XBT_INFO("Check a safety property. Reduction is: %s.",
 280              (reductionMode_ == ReductionMode::none ? "none"
 281                                                     : (reductionMode_ == ReductionMode::dpor ? "dpor" : "unknown")));
 282   session->initialize();
 283
 284   XBT_DEBUG("Starting the safety algorithm");
 285
 286   std::unique_ptr<State> initial_state = std::unique_ptr<State>(new State(++expanded_states_count_));
 287
 288   XBT_DEBUG("**************************************************");
 289   XBT_DEBUG("Initial state");
 290
 291   /* Get an enabled actor and insert it in the interleave set of the initial state */
 292   for (auto& actor : mc_model_checker->process().actors())
 293     if (actor_is_enabled(actor.copy.get_buffer())) {
 294       initial_state->add_interleaving_set(actor.copy.get_buffer());
 295       if (reductionMode_ != ReductionMode::none)
 296         break;
 297     }
 298
 299   stack_.push_back(std::move(initial_state));
 300 }
 301
 302 Checker* createSafetyChecker(Session& s)
 303 {
 304   return new SafetyChecker(s);
 305 }
 306
 307 } // namespace mc
 308 } // namespace simgrid