X-Git-Url: http://info.iut-bm.univ-fcomte.fr/pub/gitweb/simgrid.git/blobdiff_plain/26af220e017a088b56105b2f21fadecf7d6e2a88..f01650f24121782b62c9ddca5bacb4e5867a8230:/src/mc/mc_record.cpp

diff --git a/src/mc/mc_record.cpp b/src/mc/mc_record.cpp
index 6734597647..63d9fc0680 100644
--- a/src/mc/mc_record.cpp
+++ b/src/mc/mc_record.cpp
@@ -1,151 +1,111 @@
-/* Copyright (c) 2014. The SimGrid Team.
- * All rights reserved.                                                     */
+/* Copyright (c) 2014-2023. The SimGrid Team. All rights reserved.          */
 
 /* This program is free software; you can redistribute it and/or modify it
  * under the terms of the license (GNU LGPL) which comes with this package. */
 
-#include <stdio.h>
-#include <stdlib.h>
+#include "src/mc/mc_record.hpp"
+#include "src/kernel/EngineImpl.hpp"
+#include "src/kernel/activity/CommImpl.hpp"
+#include "src/mc/mc_base.hpp"
+#include "src/mc/mc_replay.hpp"
+#include "src/mc/transition/Transition.hpp"
 
-#include <xbt.h>
-#include <simgrid/simix.h>
+XBT_LOG_NEW_DEFAULT_SUBCATEGORY(mc_record, mc, "Logging specific to MC record/replay facility");
 
-#include "mc_record.h"
-#include "mc_base.h"
+namespace simgrid::mc {
 
-#ifdef HAVE_MC
-#include "mc_private.h"
-#include "mc_state.h"
-#include "mc_smx.h"
-#endif
-
-extern "C" {
-
-XBT_LOG_NEW_DEFAULT_SUBCATEGORY(mc_record, mc,
-  " Logging specific to MC record/replay facility");
-
-char* MC_record_path = NULL;
-
-void MC_record_replay(mc_record_item_t start, size_t len)
+void RecordTrace::replay() const
 {
-  MC_wait_for_requests();
-  mc_record_item_t end = start + len;
-
-  // Choose the recorded simcall and execute it:
-  for (mc_record_item_t item=start;item!=end; ++item) {
-
-    XBT_DEBUG("Executing %i$%i", item->pid, item->value);
-/*
-    if (xbt_dynar_is_empty(simix_global->process_to_run))
-      xbt_die("Unexpected end of application.");
-*/
-
-    // Choose a request:
-    smx_process_t process = SIMIX_process_from_PID(item->pid);
-    if (!process)
-      xbt_die("Unexpected process.");
-    smx_simcall_t simcall = &(process->simcall);
-    if(!simcall || simcall->call == SIMCALL_NONE)
-      xbt_die("No simcall for this process.");
-    if (!MC_request_is_visible(simcall) || !MC_request_is_enabled(simcall))
-      xbt_die("Unexpected simcall.");
+  simgrid::mc::execute_actors();
+  auto* engine = kernel::EngineImpl::get_instance();
+
+  int frame_count = 1;
+  if (xbt_log_no_loc)
+    XBT_INFO("The backtrace of each transition will not be shown because of --log=no_loc");
+  else
+    simgrid_mc_replay_show_backtraces = true;
+
+  for (const simgrid::mc::Transition* transition : transitions_) {
+    kernel::actor::ActorImpl* actor = engine->get_actor_by_pid(transition->aid_);
+    xbt_assert(actor != nullptr, "Unexpected actor (id:%ld).", transition->aid_);
+    const kernel::actor::Simcall* simcall = &(actor->simcall_);
+    xbt_assert(simgrid::mc::request_is_visible(simcall), "Simcall %s of actor %s is not visible.", simcall->get_cname(),
+               actor->get_cname());
+
+    XBT_INFO("***********************************************************************************");
+    XBT_INFO("* Path chunk #%d '%ld/%i' Actor %s(pid:%ld): %s", frame_count++, transition->aid_,
+             transition->times_considered_, simcall->issuer_->get_cname(), simcall->issuer_->get_pid(),
+             simcall->observer_->to_string().c_str());
+    XBT_INFO("***********************************************************************************");
+    if (not mc::actor_is_enabled(actor))
+      simgrid::kernel::EngineImpl::get_instance()->display_all_actor_status();
+
+    xbt_assert(simgrid::mc::actor_is_enabled(actor), "Actor %s (simcall %s) is not enabled.", actor->get_cname(),
+               simcall->get_cname());
 
     // Execute the request:
-    SIMIX_simcall_handle(simcall, item->value);
-    MC_wait_for_requests();
+    simcall->issuer_->simcall_handle(transition->times_considered_);
+    simgrid::mc::execute_actors();
+  }
+
+  const auto& actor_list = engine->get_actor_list();
+  if (actor_list.empty()) {
+    XBT_INFO("The replay of the trace is complete. The application is terminating.");
+  } else if (std::none_of(std::begin(actor_list), std::end(actor_list),
+                          [](const auto& kv) { return mc::actor_is_enabled(kv.second); })) {
+    XBT_INFO("The replay of the trace is complete. DEADLOCK detected.");
+    engine->display_all_actor_status();
+  } else {
+    XBT_INFO("The replay of the trace is complete. The application could run further.");
   }
 }
 
-xbt_dynar_t MC_record_from_string(const char* data)
+void simgrid::mc::RecordTrace::replay(const std::string& path_string)
 {
-  XBT_INFO("path=%s", data);
-  if (!data || !data[0])
-    return NULL;
+  simgrid::mc::processes_time.resize(kernel::actor::ActorImpl::get_maxpid());
+  simgrid::mc::RecordTrace trace(path_string.c_str());
+  trace.replay();
+  for (auto* item : trace.transitions_)
+    delete item;
+  simgrid::mc::processes_time.clear();
+}
 
-  xbt_dynar_t dynar = xbt_dynar_new(sizeof(s_mc_record_item_t), NULL);
+simgrid::mc::RecordTrace::RecordTrace(const char* data)
+{
+  XBT_INFO("path=%s", data);
+  if (data == nullptr || data[0] == '\0')
+    throw std::invalid_argument("Could not parse record path");
 
   const char* current = data;
   while (*current) {
+    long aid;
+    int times_considered = 0;
 
-    s_mc_record_item_t item = { 0, 0 };
-    int count = sscanf(current, "%u/%u", &item.pid, &item.value);
-    if(count != 2 && count != 1)
-      goto fail;
-    xbt_dynar_push(dynar, &item);
+    if (int count = sscanf(current, "%ld/%d", &aid, &times_considered); count != 2 && count != 1)
+      throw std::invalid_argument("Could not parse record path");
+    push_back(new simgrid::mc::Transition(simgrid::mc::Transition::Type::UNKNOWN, aid, times_considered));
 
     // Find next chunk:
-    const char* end = strchr(current, ';');
-    if(end==NULL)
+    const char* end = std::strchr(current, ';');
+    if(end == nullptr)
       break;
     else
       current = end + 1;
   }
-
-  return dynar;
-
-fail:
-  xbt_dynar_free(&dynar);
-  return NULL;
-}
-
-#ifdef HAVE_MC
-char* MC_record_stack_to_string(xbt_fifo_t stack)
-{
-  xbt_fifo_item_t start = xbt_fifo_get_last_item(stack);
-
-  if (!start) {
-    char* res = (char*) malloc(1 * sizeof(char));
-    res[0] = '\0';
-    return res;
-  }
-
-  char* buffer;
-  size_t size;
-  FILE* file = open_memstream(&buffer, &size);
-
-  xbt_fifo_item_t item;
-  for (item = start; item; item = xbt_fifo_get_prev_item(item)) {
-
-    // Find (pid, value):
-    mc_state_t state = (mc_state_t) xbt_fifo_get_item_content(item);
-    int value = 0;
-    smx_simcall_t saved_req = MC_state_get_executed_request(state, &value);
-    const smx_process_t issuer = MC_smx_simcall_get_issuer(saved_req);
-    const int pid = issuer->pid;
-
-    // Serialization the (pid, value) pair:
-    const char* sep = (item!=start) ? ";" : "";
-    if (value)
-      fprintf(file, "%s%u/%u", sep, pid, value);
-    else
-      fprintf(file, "%s%u", sep, pid);
-  }
-
-  fclose(file);
-  return buffer;
 }
 
-void MC_record_dump_path(xbt_fifo_t stack)
+std::string simgrid::mc::RecordTrace::to_string() const
 {
-  if (MC_record_is_active()) {
-    char* path = MC_record_stack_to_string(stack);
-    XBT_INFO("Path = %s", path);
-    free(path);
+  std::ostringstream stream;
+  for (auto i = transitions_.begin(); i != transitions_.end(); ++i) {
+    if (*i == nullptr)
+      continue;
+    if (i != transitions_.begin())
+      stream << ';';
+    stream << (*i)->aid_;
+    if ((*i)->times_considered_ > 0)
+      stream << '/' << (*i)->times_considered_;
   }
+  return stream.str();
 }
-#endif
-
-void MC_record_replay_from_string(const char* path_string)
-{
-  xbt_dynar_t path = MC_record_from_string(path_string);
-  mc_record_item_t start = &xbt_dynar_get_as(path, 0, s_mc_record_item_t);
-  MC_record_replay(start, xbt_dynar_length(path));
-  xbt_dynar_free(&path);
-}
-
-void MC_record_replay_init()
-{
-  mc_time = xbt_new0(double, simix_process_maxpid);
-}
-
-}
+} // namespace simgrid::mc