Logo AND Algorithmique Numérique Distribuée

Public GIT Repository
[mc] Move code in simgrid::mc
[simgrid.git] / src / mc / mc_comm_pattern.cpp
1 /* Copyright (c) 2007-2015. The SimGrid Team.
2  * All rights reserved.                                                     */
3
4 /* This program is free software; you can redistribute it and/or modify it
5  * under the terms of the license (GNU LGPL) which comes with this package. */
6
7 #include <string.h>
8
9 #include <xbt/sysdep.h>
10 #include <xbt/dynar.h>
11
12 #include "src/mc/mc_comm_pattern.h"
13 #include "src/mc/mc_smx.h"
14 #include "src/mc/mc_xbt.hpp"
15
16 using simgrid::mc::remote;
17
18 extern "C" {
19
20 XBT_LOG_NEW_DEFAULT_SUBCATEGORY(mc_comm_pattern, mc,
21                                 "Logging specific to MC communication patterns");
22
23 mc_comm_pattern_t MC_comm_pattern_dup(mc_comm_pattern_t comm)
24 {
25   mc_comm_pattern_t res = xbt_new0(s_mc_comm_pattern_t, 1);
26   res->index = comm->index;
27   res->type = comm->type;
28   res->comm_addr = comm->comm_addr;
29   res->rdv = xbt_strdup(comm->rdv);
30   res->data_size = -1;
31   res->data = nullptr;
32   if (comm->type == SIMIX_COMM_SEND) {
33     res->src_proc = comm->src_proc;
34     res->src_host = comm->src_host;
35     if (comm->data != nullptr) {
36       res->data_size = comm->data_size;
37       res->data = xbt_malloc0(comm->data_size);
38       memcpy(res->data, comm->data, comm->data_size);
39     }
40   } else {
41     res->dst_proc = comm->dst_proc;
42     res->dst_host = comm->dst_host;
43   }
44   return res;
45 }
46
47 xbt_dynar_t MC_comm_patterns_dup(xbt_dynar_t patterns)
48 {
49   xbt_dynar_t res = xbt_dynar_new(sizeof(mc_comm_pattern_t), MC_comm_pattern_free_voidp);
50
51   mc_comm_pattern_t comm;
52   unsigned int cursor;
53   xbt_dynar_foreach(patterns, cursor, comm) {
54     mc_comm_pattern_t copy_comm = MC_comm_pattern_dup(comm);
55     xbt_dynar_push(res, &copy_comm);
56   }
57
58   return res;
59 }
60
61 static void MC_patterns_copy(xbt_dynar_t dest, xbt_dynar_t source)
62 {
63   xbt_dynar_reset(dest);
64
65   unsigned int cursor;
66   mc_comm_pattern_t comm;
67   xbt_dynar_foreach(source, cursor, comm) {
68     mc_comm_pattern_t copy_comm = MC_comm_pattern_dup(comm);
69     xbt_dynar_push(dest, &copy_comm);
70   }
71 }
72
73 void MC_restore_communications_pattern(mc_state_t state)
74 {
75   mc_list_comm_pattern_t list_process_comm;
76   unsigned int cursor;
77
78   xbt_dynar_foreach(initial_communications_pattern, cursor, list_process_comm)
79     list_process_comm->index_comm = (int)xbt_dynar_get_as(state->index_comm, cursor, int);
80
81   for (unsigned i = 0; i < MC_smx_get_maxpid(); i++)
82     MC_patterns_copy(
83       xbt_dynar_get_as(incomplete_communications_pattern, i, xbt_dynar_t),
84       xbt_dynar_get_as(state->incomplete_comm_pattern, i, xbt_dynar_t)
85     );
86 }
87
88 void MC_state_copy_incomplete_communications_pattern(mc_state_t state)
89 {
90   state->incomplete_comm_pattern = xbt_dynar_new(sizeof(xbt_dynar_t), xbt_dynar_free_voidp);
91
92   for (unsigned i=0; i < MC_smx_get_maxpid(); i++) {
93     xbt_dynar_t comms = xbt_dynar_get_as(incomplete_communications_pattern, i, xbt_dynar_t);
94     xbt_dynar_t copy = MC_comm_patterns_dup(comms);
95     xbt_dynar_insert_at(state->incomplete_comm_pattern, i, &copy);
96   }
97 }
98
99 void MC_state_copy_index_communications_pattern(mc_state_t state)
100 {
101   state->index_comm = xbt_dynar_new(sizeof(unsigned int), nullptr);
102   mc_list_comm_pattern_t list_process_comm;
103   unsigned int cursor;
104   xbt_dynar_foreach(initial_communications_pattern, cursor, list_process_comm)
105     xbt_dynar_push_as(state->index_comm, unsigned int, list_process_comm->index_comm);
106 }
107
108 void MC_handle_comm_pattern(
109   e_mc_call_type_t call_type, smx_simcall_t req,
110   int value, xbt_dynar_t pattern, int backtracking)
111 {
112
113   switch(call_type) {
114   case MC_CALL_TYPE_NONE:
115     break;
116   case MC_CALL_TYPE_SEND:
117   case MC_CALL_TYPE_RECV:
118     MC_get_comm_pattern(pattern, req, call_type, backtracking);
119     break;
120   case MC_CALL_TYPE_WAIT:
121   case MC_CALL_TYPE_WAITANY:
122     {
123       smx_synchro_t comm_addr = nullptr;
124       if (call_type == MC_CALL_TYPE_WAIT)
125         comm_addr = simcall_comm_wait__get__comm(req);
126       else
127         // comm_addr = REMOTE(xbt_dynar_get_as(simcall_comm_waitany__get__comms(req), value, smx_synchro_t)):
128         simgrid::mc::read_element(mc_model_checker->process(), &comm_addr,
129           remote(simcall_comm_waitany__get__comms(req)), value, sizeof(comm_addr));
130       MC_complete_comm_pattern(pattern, comm_addr,
131         MC_smx_simcall_get_issuer(req)->pid, backtracking);
132     }
133     break;
134   default:
135     xbt_die("Unexpected call type %i", (int)call_type);
136   }
137
138 }
139
140 void MC_comm_pattern_free(mc_comm_pattern_t p)
141 {
142   xbt_free(p->rdv);
143   xbt_free(p->data);
144   xbt_free(p);
145   p = nullptr;
146 }
147
148 static void MC_list_comm_pattern_free(mc_list_comm_pattern_t l)
149 {
150   xbt_dynar_free(&(l->list));
151   xbt_free(l);
152   l = nullptr;
153 }
154
155 void MC_comm_pattern_free_voidp(void *p)
156 {
157   MC_comm_pattern_free((mc_comm_pattern_t) * (void **) p);
158 }
159
160 void MC_list_comm_pattern_free_voidp(void *p)
161 {
162   MC_list_comm_pattern_free((mc_list_comm_pattern_t) * (void **) p);
163 }
164
165 }