XBT_PUBLIC(int) TRACE_start ();
XBT_PUBLIC(int) TRACE_end ();
-XBT_PUBLIC(void) TRACE_global_init(int *argc, char **argv);
+XBT_PUBLIC(void) TRACE_global_init();
XBT_PUBLIC(void) TRACE_help(int detailed);
XBT_PUBLIC(void) TRACE_surf_resource_utilization_alloc();
XBT_PUBLIC(void) TRACE_surf_resource_utilization_release();
return xbt_cfg_get_string(OPT_VIVA_CAT_CONF);
}
-void TRACE_global_init(int *argc, char **argv)
+void TRACE_global_init()
{
static int is_initialised = 0;
if (is_initialised)
class SetVariableEvent : public PajeEvent {
+ private:
container_t container;
type_t type;
double value;
class AddVariableEvent:public PajeEvent {
+ private:
container_t container;
type_t type;
double value;
class SubVariableEvent : public PajeEvent {
- public:
+ private:
container_t container;
type_t type;
double value;
//--------------------------------------------------
class SetStateEvent : public PajeEvent {
- public:
+ private:
container_t container;
type_t type;
val_t value;
XBT_PRIVATE void TRACE_internal_smpi_set_category(const char* category);
XBT_PRIVATE const char* TRACE_internal_smpi_get_category();
XBT_PRIVATE void TRACE_smpi_collective_in(int rank, int root, const char* operation, instr_extra_data extra);
-XBT_PRIVATE void TRACE_smpi_collective_out(int rank, int root, const char* operation);
+XBT_PRIVATE void TRACE_smpi_collective_out(int rank, const char* operation);
XBT_PRIVATE void TRACE_smpi_computing_init(int rank);
XBT_PRIVATE void TRACE_smpi_computing_out(int rank);
XBT_PRIVATE void TRACE_smpi_computing_in(int rank, instr_extra_data extra);
*/
void MSG_init_nocheck(int *argc, char **argv) {
- TRACE_global_init(argc, argv);
+ TRACE_global_init();
if (not msg_global) {
s4u::Engine::instance_ = this;
pimpl = new kernel::EngineImpl();
- TRACE_global_init(argc, argv);
+ TRACE_global_init();
SIMIX_global_init(argc, argv);
}
instr_extra_data extra = xbt_new0(s_instr_extra_data_t,1);
extra->type = TRACING_INIT;
TRACE_smpi_collective_in(rank, -1, __FUNCTION__, extra);
- TRACE_smpi_collective_out(rank, -1, __FUNCTION__);
+ TRACE_smpi_collective_out(rank, __FUNCTION__);
smpi_bench_begin();
}
smpi_process()->finalize();
- TRACE_smpi_collective_out(rank, -1, __FUNCTION__);
+ TRACE_smpi_collective_out(rank, __FUNCTION__);
TRACE_smpi_finalize(smpi_process()->index());
return MPI_SUCCESS;
}
simgrid::smpi::Colls::bcast(buf, count, datatype, root, comm);
retval = MPI_SUCCESS;
- TRACE_smpi_collective_out(rank, root_traced, __FUNCTION__);
+ TRACE_smpi_collective_out(rank, __FUNCTION__);
}
smpi_bench_begin();
return retval;
retval = MPI_SUCCESS;
- TRACE_smpi_collective_out(rank, -1, __FUNCTION__);
+ TRACE_smpi_collective_out(rank, __FUNCTION__);
}
smpi_bench_begin();
simgrid::smpi::Colls::gather(sendtmpbuf, sendtmpcount, sendtmptype, recvbuf, recvcount, recvtype, root, comm);
retval = MPI_SUCCESS;
- TRACE_smpi_collective_out(rank, root_traced, __FUNCTION__);
+ TRACE_smpi_collective_out(rank, __FUNCTION__);
}
smpi_bench_begin();
TRACE_smpi_collective_in(rank, root_traced, __FUNCTION__, extra);
retval = simgrid::smpi::Colls::gatherv(sendtmpbuf, sendtmpcount, sendtmptype, recvbuf, recvcounts, displs, recvtype, root, comm);
- TRACE_smpi_collective_out(rank, root_traced, __FUNCTION__);
+ TRACE_smpi_collective_out(rank, __FUNCTION__);
}
smpi_bench_begin();
simgrid::smpi::Colls::allgather(sendbuf, sendcount, sendtype, recvbuf, recvcount, recvtype, comm);
retval = MPI_SUCCESS;
- TRACE_smpi_collective_out(rank, -1, __FUNCTION__);
+ TRACE_smpi_collective_out(rank, __FUNCTION__);
}
smpi_bench_begin();
return retval;
simgrid::smpi::Colls::allgatherv(sendbuf, sendcount, sendtype, recvbuf, recvcounts, displs, recvtype, comm);
retval = MPI_SUCCESS;
- TRACE_smpi_collective_out(rank, -1, __FUNCTION__);
+ TRACE_smpi_collective_out(rank, __FUNCTION__);
}
smpi_bench_begin();
simgrid::smpi::Colls::scatter(sendbuf, sendcount, sendtype, recvbuf, recvcount, recvtype, root, comm);
retval = MPI_SUCCESS;
- TRACE_smpi_collective_out(rank, root_traced, __FUNCTION__);
+ TRACE_smpi_collective_out(rank, __FUNCTION__);
}
smpi_bench_begin();
retval = simgrid::smpi::Colls::scatterv(sendbuf, sendcounts, displs, sendtype, recvbuf, recvcount, recvtype, root, comm);
- TRACE_smpi_collective_out(rank, root_traced, __FUNCTION__);
+ TRACE_smpi_collective_out(rank, __FUNCTION__);
}
smpi_bench_begin();
simgrid::smpi::Colls::reduce(sendbuf, recvbuf, count, datatype, op, root, comm);
retval = MPI_SUCCESS;
- TRACE_smpi_collective_out(rank, root_traced, __FUNCTION__);
+ TRACE_smpi_collective_out(rank, __FUNCTION__);
}
smpi_bench_begin();
xbt_free(sendtmpbuf);
retval = MPI_SUCCESS;
- TRACE_smpi_collective_out(rank, -1, __FUNCTION__);
+ TRACE_smpi_collective_out(rank, __FUNCTION__);
}
smpi_bench_begin();
retval = simgrid::smpi::Colls::scan(sendbuf, recvbuf, count, datatype, op, comm);
- TRACE_smpi_collective_out(rank, -1, __FUNCTION__);
+ TRACE_smpi_collective_out(rank, __FUNCTION__);
}
smpi_bench_begin();
retval = simgrid::smpi::Colls::exscan(sendtmpbuf, recvbuf, count, datatype, op, comm);
- TRACE_smpi_collective_out(rank, -1, __FUNCTION__);
+ TRACE_smpi_collective_out(rank, __FUNCTION__);
if (sendbuf == MPI_IN_PLACE)
xbt_free(sendtmpbuf);
}
simgrid::smpi::Colls::reduce_scatter(sendtmpbuf, recvbuf, recvcounts, datatype, op, comm);
retval = MPI_SUCCESS;
- TRACE_smpi_collective_out(rank, -1, __FUNCTION__);
+ TRACE_smpi_collective_out(rank, __FUNCTION__);
if (sendbuf == MPI_IN_PLACE)
xbt_free(sendtmpbuf);
xbt_free(recvcounts);
retval = MPI_SUCCESS;
- TRACE_smpi_collective_out(rank, -1, __FUNCTION__);
+ TRACE_smpi_collective_out(rank, __FUNCTION__);
if (sendbuf == MPI_IN_PLACE)
xbt_free(sendtmpbuf);
retval = simgrid::smpi::Colls::alltoall(sendtmpbuf, sendtmpcount, sendtmptype, recvbuf, recvcount, recvtype, comm);
- TRACE_smpi_collective_out(rank, -1, __FUNCTION__);
+ TRACE_smpi_collective_out(rank, __FUNCTION__);
if (sendbuf == MPI_IN_PLACE)
xbt_free(sendtmpbuf);
TRACE_smpi_collective_in(rank, -1, __FUNCTION__, extra);
retval = simgrid::smpi::Colls::alltoallv(sendtmpbuf, sendtmpcounts, sendtmpdisps, sendtmptype, recvbuf, recvcounts,
recvdisps, recvtype, comm);
- TRACE_smpi_collective_out(rank, -1, __FUNCTION__);
+ TRACE_smpi_collective_out(rank, __FUNCTION__);
if (sendbuf == MPI_IN_PLACE) {
xbt_free(sendtmpbuf);
int rank = smpi_process()->index();
TRACE_smpi_collective_in(rank, -1, __FUNCTION__, nullptr);
retval = win->fence(assert);
- TRACE_smpi_collective_out(rank, -1, __FUNCTION__);
+ TRACE_smpi_collective_out(rank, __FUNCTION__);
}
smpi_bench_begin();
return retval;
int rank = smpi_process()->index();
TRACE_smpi_collective_in(rank, -1, __FUNCTION__, nullptr);
retval = win->post(group,assert);
- TRACE_smpi_collective_out(rank, -1, __FUNCTION__);
+ TRACE_smpi_collective_out(rank, __FUNCTION__);
}
smpi_bench_begin();
return retval;
int rank = smpi_process()->index();
TRACE_smpi_collective_in(rank, -1, __FUNCTION__, nullptr);
retval = win->start(group,assert);
- TRACE_smpi_collective_out(rank, -1, __FUNCTION__);
+ TRACE_smpi_collective_out(rank, __FUNCTION__);
}
smpi_bench_begin();
return retval;
retval = win->complete();
- TRACE_smpi_collective_out(rank, -1, __FUNCTION__);
+ TRACE_smpi_collective_out(rank, __FUNCTION__);
}
smpi_bench_begin();
return retval;
retval = win->wait();
- TRACE_smpi_collective_out(rank, -1, __FUNCTION__);
+ TRACE_smpi_collective_out(rank, __FUNCTION__);
}
smpi_bench_begin();
return retval;
int myrank = smpi_process()->index();
TRACE_smpi_collective_in(myrank, -1, __FUNCTION__, nullptr);
retval = win->lock(lock_type,rank,assert);
- TRACE_smpi_collective_out(myrank, -1, __FUNCTION__);
+ TRACE_smpi_collective_out(myrank, __FUNCTION__);
}
smpi_bench_begin();
return retval;
int myrank = smpi_process()->index();
TRACE_smpi_collective_in(myrank, -1, __FUNCTION__, nullptr);
retval = win->unlock(rank);
- TRACE_smpi_collective_out(myrank, -1, __FUNCTION__);
+ TRACE_smpi_collective_out(myrank, __FUNCTION__);
}
smpi_bench_begin();
return retval;
int myrank = smpi_process()->index();
TRACE_smpi_collective_in(myrank, -1, __FUNCTION__, nullptr);
retval = win->lock_all(assert);
- TRACE_smpi_collective_out(myrank, -1, __FUNCTION__);
+ TRACE_smpi_collective_out(myrank, __FUNCTION__);
}
smpi_bench_begin();
return retval;
int myrank = smpi_process()->index();
TRACE_smpi_collective_in(myrank, -1, __FUNCTION__, nullptr);
retval = win->unlock_all();
- TRACE_smpi_collective_out(myrank, -1, __FUNCTION__);
+ TRACE_smpi_collective_out(myrank, __FUNCTION__);
}
smpi_bench_begin();
return retval;
int myrank = smpi_process()->index();
TRACE_smpi_collective_in(myrank, -1, __FUNCTION__, nullptr);
retval = win->flush(rank);
- TRACE_smpi_collective_out(myrank, -1, __FUNCTION__);
+ TRACE_smpi_collective_out(myrank, __FUNCTION__);
}
smpi_bench_begin();
return retval;
int myrank = smpi_process()->index();
TRACE_smpi_collective_in(myrank, -1, __FUNCTION__, nullptr);
retval = win->flush_local(rank);
- TRACE_smpi_collective_out(myrank, -1, __FUNCTION__);
+ TRACE_smpi_collective_out(myrank, __FUNCTION__);
}
smpi_bench_begin();
return retval;
int myrank = smpi_process()->index();
TRACE_smpi_collective_in(myrank, -1, __FUNCTION__, nullptr);
retval = win->flush_all();
- TRACE_smpi_collective_out(myrank, -1, __FUNCTION__);
+ TRACE_smpi_collective_out(myrank, __FUNCTION__);
}
smpi_bench_begin();
return retval;
int myrank = smpi_process()->index();
TRACE_smpi_collective_in(myrank, -1, __FUNCTION__, nullptr);
retval = win->flush_local_all();
- TRACE_smpi_collective_out(myrank, -1, __FUNCTION__);
+ TRACE_smpi_collective_out(myrank, __FUNCTION__);
}
smpi_bench_begin();
return retval;
new PushStateEvent (SIMIX_get_clock(), container, type, value, static_cast<void*>(extra));
}
-void TRACE_smpi_collective_out(int rank, int root, const char *operation)
+void TRACE_smpi_collective_out(int rank, const char *operation)
{
if (not TRACE_smpi_is_enabled())
return;
return 0;
}
- TRACE_global_init(&argc, argv);
+ TRACE_global_init();
SIMIX_global_init(&argc, argv);
MSG_init(&argc,argv);
Colls::barrier(MPI_COMM_WORLD);
- TRACE_smpi_collective_out(rank, -1, __FUNCTION__);
+ TRACE_smpi_collective_out(rank, __FUNCTION__);
log_timed_action (action, clock);
}
Colls::bcast(sendbuf, size, MPI_CURRENT_TYPE, root, MPI_COMM_WORLD);
- TRACE_smpi_collective_out(rank, root_traced, __FUNCTION__);
+ TRACE_smpi_collective_out(rank, __FUNCTION__);
log_timed_action (action, clock);
}
Colls::reduce(sendbuf, recvbuf, comm_size, MPI_CURRENT_TYPE, MPI_OP_NULL, root, MPI_COMM_WORLD);
smpi_execute_flops(comp_size);
- TRACE_smpi_collective_out(rank, root_traced, __FUNCTION__);
+ TRACE_smpi_collective_out(rank, __FUNCTION__);
log_timed_action (action, clock);
}
Colls::allreduce(sendbuf, recvbuf, comm_size, MPI_CURRENT_TYPE, MPI_OP_NULL, MPI_COMM_WORLD);
smpi_execute_flops(comp_size);
- TRACE_smpi_collective_out(rank, -1, __FUNCTION__);
+ TRACE_smpi_collective_out(rank, __FUNCTION__);
log_timed_action (action, clock);
}
Colls::alltoall(send, send_size, MPI_CURRENT_TYPE, recv, recv_size, MPI_CURRENT_TYPE2, MPI_COMM_WORLD);
- TRACE_smpi_collective_out(rank, -1, __FUNCTION__);
+ TRACE_smpi_collective_out(rank, __FUNCTION__);
log_timed_action (action, clock);
}
Colls::gather(send, send_size, MPI_CURRENT_TYPE, recv, recv_size, MPI_CURRENT_TYPE2, root, MPI_COMM_WORLD);
- TRACE_smpi_collective_out(smpi_process()->index(), -1, __FUNCTION__);
+ TRACE_smpi_collective_out(smpi_process()->index(), __FUNCTION__);
log_timed_action (action, clock);
}
Colls::gatherv(send, send_size, MPI_CURRENT_TYPE, recv, recvcounts, disps, MPI_CURRENT_TYPE2, root, MPI_COMM_WORLD);
- TRACE_smpi_collective_out(smpi_process()->index(), -1, __FUNCTION__);
+ TRACE_smpi_collective_out(smpi_process()->index(), __FUNCTION__);
log_timed_action (action, clock);
}
Colls::reduce_scatter(sendbuf, recvbuf, recvcounts, MPI_CURRENT_TYPE, MPI_OP_NULL, MPI_COMM_WORLD);
smpi_execute_flops(comp_size);
- TRACE_smpi_collective_out(rank, -1, __FUNCTION__);
+ TRACE_smpi_collective_out(rank, __FUNCTION__);
log_timed_action (action, clock);
}
Colls::allgather(sendbuf, sendcount, MPI_CURRENT_TYPE, recvbuf, recvcount, MPI_CURRENT_TYPE2, MPI_COMM_WORLD);
- TRACE_smpi_collective_out(rank, -1, __FUNCTION__);
+ TRACE_smpi_collective_out(rank, __FUNCTION__);
log_timed_action (action, clock);
}
Colls::allgatherv(sendbuf, sendcount, MPI_CURRENT_TYPE, recvbuf, recvcounts, disps, MPI_CURRENT_TYPE2,
MPI_COMM_WORLD);
- TRACE_smpi_collective_out(rank, -1, __FUNCTION__);
+ TRACE_smpi_collective_out(rank, __FUNCTION__);
log_timed_action (action, clock);
}
Colls::alltoallv(sendbuf, sendcounts, senddisps, MPI_CURRENT_TYPE,recvbuf, recvcounts, recvdisps,
MPI_CURRENT_TYPE, MPI_COMM_WORLD);
- TRACE_smpi_collective_out(rank, -1, __FUNCTION__);
+ TRACE_smpi_collective_out(rank, __FUNCTION__);
log_timed_action (action, clock);
}
instr_extra_data extra = xbt_new0(s_instr_extra_data_t,1);
extra->type = TRACING_INIT;
TRACE_smpi_collective_in(rank, -1, "smpi_replay_run_init", extra);
- TRACE_smpi_collective_out(rank, -1, "smpi_replay_run_init");
+ TRACE_smpi_collective_out(rank, "smpi_replay_run_init");
xbt_replay_action_register("init", simgrid::smpi::action_init);
xbt_replay_action_register("finalize", simgrid::smpi::action_finalize);
xbt_replay_action_register("comm_size", simgrid::smpi::action_comm_size);
smpi_process()->finalize();
- TRACE_smpi_collective_out(smpi_process()->index(), -1, "smpi_replay_run_finalize");
+ TRACE_smpi_collective_out(smpi_process()->index(), "smpi_replay_run_finalize");
TRACE_smpi_finalize(smpi_process()->index());
}