Logo AND Algorithmique Numérique Distribuée

Public GIT Repository
fix some more MC examples
[simgrid.git] / src / mc / mc_comm_pattern.cpp
1 /* Copyright (c) 2007-2017. 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 <string.h>
7
8 #include "xbt/dynar.h"
9 #include "xbt/sysdep.h"
10 #include <xbt/dynar.hpp>
11
12 #include "src/mc/mc_comm_pattern.h"
13 #include "src/mc/mc_smx.h"
14 #include "src/mc/mc_xbt.hpp"
15 #include "src/mc/checker/CommunicationDeterminismChecker.hpp"
16
17 using simgrid::mc::remote;
18
19 XBT_LOG_NEW_DEFAULT_SUBCATEGORY(mc_comm_pattern, mc,
20                                 "Logging specific to MC communication patterns");
21
22 static void MC_patterns_copy(xbt_dynar_t dest,
23   std::vector<simgrid::mc::PatternCommunication> const& source)
24 {
25   xbt_dynar_reset(dest);
26   for (simgrid::mc::PatternCommunication const& comm : source) {
27     simgrid::mc::PatternCommunication* copy_comm = new simgrid::mc::PatternCommunication(comm.dup());
28     xbt_dynar_push(dest, &copy_comm);
29   }
30 }
31
32 void MC_restore_communications_pattern(simgrid::mc::State* state)
33 {
34   simgrid::mc::PatternCommunicationList* list_process_comm;
35   unsigned int cursor;
36
37   xbt_dynar_foreach(initial_communications_pattern, cursor, list_process_comm)
38     list_process_comm->index_comm = state->communicationIndices[cursor];
39
40   for (unsigned i = 0; i < MC_smx_get_maxpid(); i++)
41     MC_patterns_copy(
42       xbt_dynar_get_as(incomplete_communications_pattern, i, xbt_dynar_t),
43       state->incomplete_comm_pattern[i]
44     );
45 }
46
47 void MC_state_copy_incomplete_communications_pattern(simgrid::mc::State* state)
48 {
49   state->incomplete_comm_pattern.clear();
50   for (unsigned i=0; i < MC_smx_get_maxpid(); i++) {
51     xbt_dynar_t patterns = xbt_dynar_get_as(incomplete_communications_pattern, i, xbt_dynar_t);
52     std::vector<simgrid::mc::PatternCommunication> res;
53     simgrid::mc::PatternCommunication* comm;
54     unsigned int cursor;
55     xbt_dynar_foreach(patterns, cursor, comm)
56       res.push_back(comm->dup());
57     state->incomplete_comm_pattern.push_back(std::move(res));
58   }
59 }
60
61 void MC_state_copy_index_communications_pattern(simgrid::mc::State* state)
62 {
63   state->communicationIndices.clear();
64   simgrid::mc::PatternCommunicationList* list_process_comm;
65   unsigned int cursor;
66   xbt_dynar_foreach(initial_communications_pattern, cursor, list_process_comm)
67     state->communicationIndices.push_back(list_process_comm->index_comm);
68 }
69
70 void MC_handle_comm_pattern(
71   e_mc_call_type_t call_type, smx_simcall_t req,
72   int value, xbt_dynar_t pattern, int backtracking)
73 {
74   // HACK, do not rely on the Checker implementation outside of it
75   simgrid::mc::CommunicationDeterminismChecker* checker =
76     (simgrid::mc::CommunicationDeterminismChecker*) mc_model_checker->getChecker();
77
78   switch(call_type) {
79   case MC_CALL_TYPE_NONE:
80     break;
81   case MC_CALL_TYPE_SEND:
82   case MC_CALL_TYPE_RECV:
83     checker->get_comm_pattern(pattern, req, call_type, backtracking);
84     break;
85   case MC_CALL_TYPE_WAIT:
86   case MC_CALL_TYPE_WAITANY:
87     {
88     simgrid::mc::RemotePtr<simgrid::kernel::activity::CommImpl> comm_addr = nullptr;
89     if (call_type == MC_CALL_TYPE_WAIT)
90       comm_addr = remote(static_cast<simgrid::kernel::activity::CommImpl*>(
91           simgrid::simix::unmarshal_raw<simgrid::kernel::activity::ActivityImpl*>(req->result)));
92
93     else {
94       simgrid::kernel::activity::CommImpl* addr;
95       // comm_addr = REMOTE(xbt_dynar_get_as(simcall_comm_waitany__get__comms(req), value, smx_synchro_t)):
96       simgrid::mc::read_element(mc_model_checker->process(), &addr, remote(simcall_comm_waitany__get__comms(req)),
97                                 value, sizeof(comm_addr));
98       comm_addr = remote(addr);
99       }
100       checker->complete_comm_pattern(pattern, comm_addr,
101         MC_smx_simcall_get_issuer(req)->pid, backtracking);
102     }
103     break;
104   default:
105     xbt_die("Unexpected call type %i", (int)call_type);
106   }
107
108 }