#include "mc_private.h"
#include "mc_smx.h"
+extern "C" {
+
XBT_LOG_NEW_DEFAULT_SUBCATEGORY(mc_request, mc,
"Logging specific to MC (request)");
// Those are internal requests, we do not need indirection
// because those objects are copies:
- smx_synchro_t synchro1= NULL, synchro2=NULL;
+ smx_synchro_t synchro1 = NULL, synchro2 = NULL;
if (r1->call == SIMCALL_COMM_WAIT) {
synchro1 = simcall_comm_wait__get__comm(r1);
}
char *MC_request_to_string(smx_simcall_t req, int value, e_mc_request_type_t request_type)
{
- bool use_remote_comm = false;
+ bool use_remote_comm = true;
switch(request_type) {
case MC_REQUEST_SIMIX:
use_remote_comm = true;
// size_t size = size_pointer ? *size_pointer : 0;
size_t size = 0;
if (remote_size)
- MC_process_read_simple(&mc_model_checker->process, &size,
+ MC_process_read_simple(&mc_model_checker->process(), &size,
remote_size, sizeof(size));
type = "iRecv";
s_smx_synchro_t synchro;
smx_synchro_t act;
if (use_remote_comm) {
- MC_process_read_simple(&mc_model_checker->process, &synchro,
+ MC_process_read_simple(&mc_model_checker->process(), &synchro,
remote_act, sizeof(synchro));
act = &synchro;
} else
s_smx_synchro_t synchro;
smx_synchro_t act;
if (use_remote_comm) {
- MC_process_read_simple(&mc_model_checker->process, &synchro,
+ MC_process_read_simple(&mc_model_checker->process(), &synchro,
remote_act, sizeof(synchro));
act = &synchro;
} else
case SIMCALL_COMM_WAITANY: {
type = "WaitAny";
s_xbt_dynar_t comms;
- MC_process_read_simple(&mc_model_checker->process,
+ MC_process_read_simple(&mc_model_checker->process(),
&comms, simcall_comm_waitany__get__comms(req), sizeof(comms));
if (!xbt_dynar_is_empty(&comms)) {
smx_synchro_t remote_sync;
- MC_process_read_dynar_element(&mc_model_checker->process,
+ MC_process_read_dynar_element(&mc_model_checker->process(),
&remote_sync, simcall_comm_waitany__get__comms(req), value,
sizeof(remote_sync));
char* p = pointer_to_string(remote_sync);
type = "TestAny";
args =
bprintf("(%d of %lu)", value + 1,
- MC_process_read_dynar_length(&mc_model_checker->process,
+ MC_process_read_dynar_length(&mc_model_checker->process(),
simcall_comm_testany__get__comms(req)));
}
break;
type = "Mutex LOCK";
s_smx_mutex_t mutex;
- MC_process_read_simple(&mc_model_checker->process, &mutex,
+ MC_process_read_simple(&mc_model_checker->process(), &mutex,
simcall_mutex_lock__get__mutex(req), sizeof(mutex));
s_xbt_swag_t mutex_sleeping;
- MC_process_read_simple(&mc_model_checker->process, &mutex_sleeping,
+ MC_process_read_simple(&mc_model_checker->process(), &mutex_sleeping,
mutex.sleeping, sizeof(mutex_sleeping));
args = bprintf("locked = %d, owner = %d, sleeping = %d",
// Read the dynar:
s_xbt_dynar_t comms;
- MC_process_read_simple(&mc_model_checker->process,
+ MC_process_read_simple(&mc_model_checker->process(),
&comms, simcall_comm_testany__get__comms(req), sizeof(comms));
// Read ther dynar buffer:
size_t buffer_size = comms.elmsize * comms.used;
char buffer[buffer_size];
- MC_process_read_simple(&mc_model_checker->process,
+ MC_process_read_simple(&mc_model_checker->process(),
buffer, comms.data, buffer_size);
// Iterate over the elements:
for (cursor=0; cursor != comms.used; ++cursor) {
// Get the element:
- smx_synchro_t remote_action;
+ smx_synchro_t remote_action = NULL;
- memcpy(buffer + comms.elmsize * cursor, &remote_action, sizeof(remote_action));
+ memcpy(&remote_action, buffer + comms.elmsize * cursor, sizeof(remote_action));
// Dereference the pointer:
s_smx_synchro_t action;
- MC_process_read_simple(&mc_model_checker->process,
+ MC_process_read_simple(&mc_model_checker->process(),
&action, remote_action, sizeof(action));
// Finally so something useful about it:
case SIMCALL_COMM_WAITANY: {
MC_process_read_dynar_element(
- &mc_model_checker->process, &remote_act, simcall_comm_waitany__get__comms(req),
+ &mc_model_checker->process(), &remote_act, simcall_comm_waitany__get__comms(req),
idx, sizeof(remote_act));
}
break;
case SIMCALL_COMM_TESTANY: {
MC_process_read_dynar_element(
- &mc_model_checker->process, &remote_act, simcall_comm_testany__get__comms(req),
+ &mc_model_checker->process(), &remote_act, simcall_comm_testany__get__comms(req),
idx, sizeof(remote_act));
}
break;
}
s_smx_synchro_t synchro;
- MC_process_read_simple(&mc_model_checker->process,
+ MC_process_read_simple(&mc_model_checker->process(),
&synchro, remote_act, sizeof(synchro));
return synchro.comm.src_proc && synchro.comm.dst_proc;
}
} else {
smx_synchro_t remote_act = simcall_comm_wait__get__comm(req);
s_smx_synchro_t synchro;
- MC_process_read_simple(&mc_model_checker->process, &synchro,
+ MC_process_read_simple(&mc_model_checker->process(), &synchro,
remote_act, sizeof(synchro));
smx_process_t src_proc = MC_smx_resolve_process(synchro.comm.src_proc);
case SIMCALL_COMM_TEST: {
smx_synchro_t remote_act = simcall_comm_test__get__comm(req);
s_smx_synchro_t synchro;
- MC_process_read_simple(&mc_model_checker->process, &synchro,
+ MC_process_read_simple(&mc_model_checker->process(), &synchro,
remote_act, sizeof(synchro));
if (synchro.comm.src_proc == NULL || synchro.comm.dst_proc == NULL) {
if (issuer->smx_host)
case SIMCALL_COMM_WAITANY: {
unsigned long comms_size = MC_process_read_dynar_length(
- &mc_model_checker->process, simcall_comm_waitany__get__comms(req));
+ &mc_model_checker->process(), simcall_comm_waitany__get__comms(req));
if (issuer->smx_host)
label =
bprintf("[(%lu)%s] WaitAny [%d of %lu]", issuer->pid,
return str;
}
+
+}
#include "xbt/log.h"
#include "xbt/dict.h"
#include "mc/mc.h"
+#include "mc/mc_replay.h"
#include "mc/mc_client.h"
XBT_LOG_NEW_DEFAULT_SUBCATEGORY(simix_process, simix,
SIMIX_process_on_exit_runall(process);
+ /* Unregister from the kill timer if any */
+ if (process->kill_timer != NULL)
+ SIMIX_timer_remove(process->kill_timer);
+
/* cancel non-blocking communications */
smx_synchro_t synchro;
while ((synchro = xbt_fifo_pop(process->comms))) {
if (arg->auto_restart && !SIMIX_host_get_state(arg->smx_host)) {
SIMIX_host_add_auto_restart_process(arg->smx_host,arg->name,arg->code, arg->data,
sg_host_name(arg->smx_host),
- arg->kill_time,
+ SIMIX_timer_get_date(arg->kill_timer),
arg->argc,arg->argv,arg->properties,
arg->auto_restart);
}
(*process)->code = code;
(*process)->argc = argc;
(*process)->argv = argv;
- (*process)->kill_time = kill_time;
XBT_VERB("Create context %s", (*process)->name);
if (kill_time > SIMIX_get_clock() && simix_global->kill_process_function) {
XBT_DEBUG("Process %s(%s) will be kill at time %f", (*process)->name,
sg_host_name((*process)->smx_host), kill_time);
- SIMIX_timer_set(kill_time, simix_global->kill_process_function, *process);
+ (*process)->kill_timer = SIMIX_timer_set(kill_time, simix_global->kill_process_function, *process);
}
}
}
smx_process_t simcall_HANDLER_process_restart(smx_simcall_t simcall, smx_process_t process) {
return SIMIX_process_restart(process, simcall->issuer);
}
- /**
- * \brief Restart a process.
- * Restart a process, starting it again from the beginning.
- */
+ /** @brief Restart a process, starting it again from the beginning. */
smx_process_t SIMIX_process_restart(smx_process_t process, smx_process_t issuer) {
XBT_DEBUG("Restarting process %s on %s", process->name, sg_host_name(process->smx_host));
//retrieve the arguments of the old process
- //FIXME: Factorise this with SIMIX_host_add_auto_restart_process ?
+ //FIXME: Factorize this with SIMIX_host_add_auto_restart_process ?
s_smx_process_arg_t arg;
arg.code = process->code;
arg.hostname = sg_host_name(process->smx_host);
- arg.kill_time = process->kill_time;
+ arg.kill_time = SIMIX_timer_get_date(process->kill_timer);
arg.argc = process->argc;
arg.data = process->data;
int i;