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, const char* operation, instr_extra_data extra);
-XBT_PRIVATE void TRACE_smpi_collective_out(int rank, const char* operation);
+XBT_PRIVATE void TRACE_smpi_collective_out(int rank);
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);
XBT_PRIVATE void TRACE_smpi_alloc();
XBT_PRIVATE void TRACE_smpi_release();
XBT_PRIVATE void TRACE_smpi_ptp_in(int rank, const char* operation, instr_extra_data extra);
-XBT_PRIVATE void TRACE_smpi_ptp_out(int rank, int dst, const char* operation);
+XBT_PRIVATE void TRACE_smpi_ptp_out(int rank);
XBT_PRIVATE void TRACE_smpi_send(int rank, int src, int dst, int tag, int size);
XBT_PRIVATE void TRACE_smpi_recv(int src, int dst, int tag);
XBT_PRIVATE void TRACE_smpi_init(int rank);
instr_extra_data extra = xbt_new0(s_instr_extra_data_t,1);
extra->type = TRACING_INIT;
TRACE_smpi_collective_in(rank, __FUNCTION__, extra);
- TRACE_smpi_collective_out(rank, __FUNCTION__);
+ TRACE_smpi_collective_out(rank);
smpi_bench_begin();
}
smpi_process()->finalize();
- TRACE_smpi_collective_out(rank, __FUNCTION__);
+ TRACE_smpi_collective_out(rank);
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, __FUNCTION__);
+ TRACE_smpi_collective_out(rank);
}
smpi_bench_begin();
return retval;
retval = MPI_SUCCESS;
- TRACE_smpi_collective_out(rank, __FUNCTION__);
+ TRACE_smpi_collective_out(rank);
}
smpi_bench_begin();
simgrid::smpi::Colls::gather(sendtmpbuf, sendtmpcount, sendtmptype, recvbuf, recvcount, recvtype, root, comm);
retval = MPI_SUCCESS;
- TRACE_smpi_collective_out(rank, __FUNCTION__);
+ TRACE_smpi_collective_out(rank);
}
smpi_bench_begin();
TRACE_smpi_collective_in(rank, __FUNCTION__, extra);
retval = simgrid::smpi::Colls::gatherv(sendtmpbuf, sendtmpcount, sendtmptype, recvbuf, recvcounts, displs, recvtype, root, comm);
- TRACE_smpi_collective_out(rank, __FUNCTION__);
+ TRACE_smpi_collective_out(rank);
}
smpi_bench_begin();
simgrid::smpi::Colls::allgather(sendbuf, sendcount, sendtype, recvbuf, recvcount, recvtype, comm);
retval = MPI_SUCCESS;
- TRACE_smpi_collective_out(rank, __FUNCTION__);
+ TRACE_smpi_collective_out(rank);
}
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, __FUNCTION__);
+ TRACE_smpi_collective_out(rank);
}
smpi_bench_begin();
simgrid::smpi::Colls::scatter(sendbuf, sendcount, sendtype, recvbuf, recvcount, recvtype, root, comm);
retval = MPI_SUCCESS;
- TRACE_smpi_collective_out(rank, __FUNCTION__);
+ TRACE_smpi_collective_out(rank);
}
smpi_bench_begin();
retval = simgrid::smpi::Colls::scatterv(sendbuf, sendcounts, displs, sendtype, recvbuf, recvcount, recvtype, root, comm);
- TRACE_smpi_collective_out(rank, __FUNCTION__);
+ TRACE_smpi_collective_out(rank);
}
smpi_bench_begin();
simgrid::smpi::Colls::reduce(sendbuf, recvbuf, count, datatype, op, root, comm);
retval = MPI_SUCCESS;
- TRACE_smpi_collective_out(rank, __FUNCTION__);
+ TRACE_smpi_collective_out(rank);
}
smpi_bench_begin();
xbt_free(sendtmpbuf);
retval = MPI_SUCCESS;
- TRACE_smpi_collective_out(rank, __FUNCTION__);
+ TRACE_smpi_collective_out(rank);
}
smpi_bench_begin();
retval = simgrid::smpi::Colls::scan(sendbuf, recvbuf, count, datatype, op, comm);
- TRACE_smpi_collective_out(rank, __FUNCTION__);
+ TRACE_smpi_collective_out(rank);
}
smpi_bench_begin();
retval = simgrid::smpi::Colls::exscan(sendtmpbuf, recvbuf, count, datatype, op, comm);
- TRACE_smpi_collective_out(rank, __FUNCTION__);
+ TRACE_smpi_collective_out(rank);
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, __FUNCTION__);
+ TRACE_smpi_collective_out(rank);
if (sendbuf == MPI_IN_PLACE)
xbt_free(sendtmpbuf);
xbt_free(recvcounts);
retval = MPI_SUCCESS;
- TRACE_smpi_collective_out(rank, __FUNCTION__);
+ TRACE_smpi_collective_out(rank);
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, __FUNCTION__);
+ TRACE_smpi_collective_out(rank);
if (sendbuf == MPI_IN_PLACE)
xbt_free(sendtmpbuf);
TRACE_smpi_collective_in(rank, __FUNCTION__, extra);
retval = simgrid::smpi::Colls::alltoallv(sendtmpbuf, sendtmpcounts, sendtmpdisps, sendtmptype, recvbuf, recvcounts,
recvdisps, recvtype, comm);
- TRACE_smpi_collective_out(rank, __FUNCTION__);
+ TRACE_smpi_collective_out(rank);
if (sendbuf == MPI_IN_PLACE) {
xbt_free(sendtmpbuf);
*request = simgrid::smpi::Request::irecv(buf, count, datatype, src, tag, comm);
retval = MPI_SUCCESS;
- TRACE_smpi_ptp_out(rank, rank, __FUNCTION__);
+ TRACE_smpi_ptp_out(rank);
}
smpi_bench_begin();
*request = simgrid::smpi::Request::isend(buf, count, datatype, dst, tag, comm);
retval = MPI_SUCCESS;
- TRACE_smpi_ptp_out(rank, dst_traced, __FUNCTION__);
+ TRACE_smpi_ptp_out(rank);
}
smpi_bench_begin();
*request = simgrid::smpi::Request::issend(buf, count, datatype, dst, tag, comm);
retval = MPI_SUCCESS;
- TRACE_smpi_ptp_out(rank, dst_traced, __FUNCTION__);
+ TRACE_smpi_ptp_out(rank);
}
smpi_bench_begin();
TRACE_smpi_recv(src_traced, rank, tag);
}
}
- TRACE_smpi_ptp_out(rank, rank, __FUNCTION__);
+ TRACE_smpi_ptp_out(rank);
}
smpi_bench_begin();
simgrid::smpi::Request::send(buf, count, datatype, dst, tag, comm);
retval = MPI_SUCCESS;
- TRACE_smpi_ptp_out(rank, dst_traced, __FUNCTION__);
+ TRACE_smpi_ptp_out(rank);
}
smpi_bench_begin();
simgrid::smpi::Request::ssend(buf, count, datatype, dst, tag, comm);
retval = MPI_SUCCESS;
- TRACE_smpi_ptp_out(rank, dst_traced, __FUNCTION__);
+ TRACE_smpi_ptp_out(rank);
}
smpi_bench_begin();
recvtag, comm, status);
retval = MPI_SUCCESS;
- TRACE_smpi_ptp_out(rank, dst_traced, __FUNCTION__);
+ TRACE_smpi_ptp_out(rank);
TRACE_smpi_recv(src_traced, rank, recvtag);
}
retval = MPI_SUCCESS;
//the src may not have been known at the beginning of the recv (MPI_ANY_SOURCE)
- TRACE_smpi_ptp_out(rank, dst_traced, __FUNCTION__);
+ TRACE_smpi_ptp_out(rank);
if (is_wait_for_receive) {
if(src_traced==MPI_ANY_SOURCE)
src_traced = (status != MPI_STATUS_IGNORE) ? comm->group()->rank(status->MPI_SOURCE) : src_traced;
: savedvals[*index].src;
TRACE_smpi_recv(src_traced, dst_traced, savedvals[*index].tag);
}
- TRACE_smpi_ptp_out(rank_traced, dst_traced, __FUNCTION__);
+ TRACE_smpi_ptp_out(rank_traced);
}
xbt_free(savedvals);
}
}
}
- TRACE_smpi_ptp_out(rank_traced, -1, __FUNCTION__);
+ TRACE_smpi_ptp_out(rank_traced);
xbt_free(savedvals);
smpi_bench_begin();
int rank = smpi_process()->index();
TRACE_smpi_collective_in(rank, __FUNCTION__, nullptr);
retval = win->fence(assert);
- TRACE_smpi_collective_out(rank, __FUNCTION__);
+ TRACE_smpi_collective_out(rank);
}
smpi_bench_begin();
return retval;
retval = win->get( origin_addr, origin_count, origin_datatype, target_rank, target_disp, target_count,
target_datatype);
- TRACE_smpi_ptp_out(rank, rank, __FUNCTION__);
+ TRACE_smpi_ptp_out(rank);
}
smpi_bench_begin();
return retval;
retval = win->get( origin_addr, origin_count, origin_datatype, target_rank, target_disp, target_count,
target_datatype, request);
- TRACE_smpi_ptp_out(rank, rank, __FUNCTION__);
+ TRACE_smpi_ptp_out(rank);
}
smpi_bench_begin();
return retval;
retval = win->put( origin_addr, origin_count, origin_datatype, target_rank, target_disp, target_count,
target_datatype);
- TRACE_smpi_ptp_out(rank, dst_traced, __FUNCTION__);
+ TRACE_smpi_ptp_out(rank);
}
smpi_bench_begin();
return retval;
retval = win->put( origin_addr, origin_count, origin_datatype, target_rank, target_disp, target_count,
target_datatype, request);
- TRACE_smpi_ptp_out(rank, dst_traced, __FUNCTION__);
+ TRACE_smpi_ptp_out(rank);
}
smpi_bench_begin();
return retval;
retval = win->accumulate( origin_addr, origin_count, origin_datatype, target_rank, target_disp, target_count,
target_datatype, op);
- TRACE_smpi_ptp_out(rank, rank, __FUNCTION__);
+ TRACE_smpi_ptp_out(rank);
}
smpi_bench_begin();
return retval;
retval = win->accumulate( origin_addr, origin_count, origin_datatype, target_rank, target_disp, target_count,
target_datatype, op, request);
- TRACE_smpi_ptp_out(rank, rank, __FUNCTION__);
+ TRACE_smpi_ptp_out(rank);
}
smpi_bench_begin();
return retval;
result_count, result_datatype, target_rank, target_disp,
target_count, target_datatype, op);
- TRACE_smpi_ptp_out(rank, rank, __FUNCTION__);
+ TRACE_smpi_ptp_out(rank);
}
smpi_bench_begin();
return retval;
result_count, result_datatype, target_rank, target_disp,
target_count, target_datatype, op, request);
- TRACE_smpi_ptp_out(rank, rank, __FUNCTION__);
+ TRACE_smpi_ptp_out(rank);
}
smpi_bench_begin();
return retval;
retval = win->compare_and_swap( origin_addr, compare_addr, result_addr, datatype,
target_rank, target_disp);
- TRACE_smpi_ptp_out(rank, rank, __FUNCTION__);
+ TRACE_smpi_ptp_out(rank);
}
smpi_bench_begin();
return retval;
int rank = smpi_process()->index();
TRACE_smpi_collective_in(rank, __FUNCTION__, nullptr);
retval = win->post(group,assert);
- TRACE_smpi_collective_out(rank, __FUNCTION__);
+ TRACE_smpi_collective_out(rank);
}
smpi_bench_begin();
return retval;
int rank = smpi_process()->index();
TRACE_smpi_collective_in(rank, __FUNCTION__, nullptr);
retval = win->start(group,assert);
- TRACE_smpi_collective_out(rank, __FUNCTION__);
+ TRACE_smpi_collective_out(rank);
}
smpi_bench_begin();
return retval;
retval = win->complete();
- TRACE_smpi_collective_out(rank, __FUNCTION__);
+ TRACE_smpi_collective_out(rank);
}
smpi_bench_begin();
return retval;
retval = win->wait();
- TRACE_smpi_collective_out(rank, __FUNCTION__);
+ TRACE_smpi_collective_out(rank);
}
smpi_bench_begin();
return retval;
int myrank = smpi_process()->index();
TRACE_smpi_collective_in(myrank, __FUNCTION__, nullptr);
retval = win->lock(lock_type,rank,assert);
- TRACE_smpi_collective_out(myrank, __FUNCTION__);
+ TRACE_smpi_collective_out(myrank);
}
smpi_bench_begin();
return retval;
int myrank = smpi_process()->index();
TRACE_smpi_collective_in(myrank, __FUNCTION__, nullptr);
retval = win->unlock(rank);
- TRACE_smpi_collective_out(myrank, __FUNCTION__);
+ TRACE_smpi_collective_out(myrank);
}
smpi_bench_begin();
return retval;
int myrank = smpi_process()->index();
TRACE_smpi_collective_in(myrank, __FUNCTION__, nullptr);
retval = win->lock_all(assert);
- TRACE_smpi_collective_out(myrank, __FUNCTION__);
+ TRACE_smpi_collective_out(myrank);
}
smpi_bench_begin();
return retval;
int myrank = smpi_process()->index();
TRACE_smpi_collective_in(myrank, __FUNCTION__, nullptr);
retval = win->unlock_all();
- TRACE_smpi_collective_out(myrank, __FUNCTION__);
+ TRACE_smpi_collective_out(myrank);
}
smpi_bench_begin();
return retval;
int myrank = smpi_process()->index();
TRACE_smpi_collective_in(myrank, __FUNCTION__, nullptr);
retval = win->flush(rank);
- TRACE_smpi_collective_out(myrank, __FUNCTION__);
+ TRACE_smpi_collective_out(myrank);
}
smpi_bench_begin();
return retval;
int myrank = smpi_process()->index();
TRACE_smpi_collective_in(myrank, __FUNCTION__, nullptr);
retval = win->flush_local(rank);
- TRACE_smpi_collective_out(myrank, __FUNCTION__);
+ TRACE_smpi_collective_out(myrank);
}
smpi_bench_begin();
return retval;
int myrank = smpi_process()->index();
TRACE_smpi_collective_in(myrank, __FUNCTION__, nullptr);
retval = win->flush_all();
- TRACE_smpi_collective_out(myrank, __FUNCTION__);
+ TRACE_smpi_collective_out(myrank);
}
smpi_bench_begin();
return retval;
int myrank = smpi_process()->index();
TRACE_smpi_collective_in(myrank, __FUNCTION__, nullptr);
retval = win->flush_local_all();
- TRACE_smpi_collective_out(myrank, __FUNCTION__);
+ TRACE_smpi_collective_out(myrank);
}
smpi_bench_begin();
return retval;
state->pushEvent(operation, static_cast<void*>(extra));
}
-void TRACE_smpi_collective_out(int rank, const char *operation)
+void TRACE_smpi_collective_out(int rank)
{
if (TRACE_smpi_is_enabled())
simgrid::instr::Container::byName(smpi_container(rank))->getState("MPI_STATE")->popEvent();
state->pushEvent(operation, static_cast<void*>(extra));
}
-void TRACE_smpi_ptp_out(int rank, int dst, const char *operation)
+void TRACE_smpi_ptp_out(int rank)
{
if (TRACE_smpi_is_enabled())
simgrid::instr::Container::byName(smpi_container(rank))->getState("MPI_STATE")->popEvent();
log_timed_action (action, clock);
- TRACE_smpi_ptp_out(rank, dst_traced, __FUNCTION__);
+ TRACE_smpi_ptp_out(rank);
}
static void action_Isend(const char *const *action)
MPI_Request request = Request::isend(nullptr, size, MPI_CURRENT_TYPE, to, 0,MPI_COMM_WORLD);
- TRACE_smpi_ptp_out(rank, dst_traced, __FUNCTION__);
+ TRACE_smpi_ptp_out(rank);
get_reqq_self()->push_back(request);
Request::recv(nullptr, size, MPI_CURRENT_TYPE, from, 0, MPI_COMM_WORLD, &status);
- TRACE_smpi_ptp_out(rank, rank, __FUNCTION__);
+ TRACE_smpi_ptp_out(rank);
if (not TRACE_smpi_view_internals()) {
TRACE_smpi_recv(src_traced, rank, 0);
}
MPI_Request request = Request::irecv(nullptr, size, MPI_CURRENT_TYPE, from, 0, MPI_COMM_WORLD);
- TRACE_smpi_ptp_out(rank, rank, __FUNCTION__);
+ TRACE_smpi_ptp_out(rank);
get_reqq_self()->push_back(request);
log_timed_action (action, clock);
Request::wait(&request, &status);
- TRACE_smpi_ptp_out(rank, dst_traced, __FUNCTION__);
+ TRACE_smpi_ptp_out(rank);
if (is_wait_for_receive)
TRACE_smpi_recv(src_traced, dst_traced, 0);
log_timed_action (action, clock);
if (recvs_snd[i]!=-100)
TRACE_smpi_recv(recvs_snd[i], recvs_rcv[i],0);
}
- TRACE_smpi_ptp_out(rank_traced, -1, __FUNCTION__);
+ TRACE_smpi_ptp_out(rank_traced);
}
log_timed_action (action, clock);
}
Colls::barrier(MPI_COMM_WORLD);
- TRACE_smpi_collective_out(rank, __FUNCTION__);
+ TRACE_smpi_collective_out(rank);
log_timed_action (action, clock);
}
Colls::bcast(sendbuf, size, MPI_CURRENT_TYPE, root, MPI_COMM_WORLD);
- TRACE_smpi_collective_out(rank, __FUNCTION__);
+ TRACE_smpi_collective_out(rank);
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, __FUNCTION__);
+ TRACE_smpi_collective_out(rank);
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, __FUNCTION__);
+ TRACE_smpi_collective_out(rank);
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, __FUNCTION__);
+ TRACE_smpi_collective_out(rank);
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(), __FUNCTION__);
+ TRACE_smpi_collective_out(smpi_process()->index());
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(), __FUNCTION__);
+ TRACE_smpi_collective_out(smpi_process()->index());
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, __FUNCTION__);
+ TRACE_smpi_collective_out(rank);
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, __FUNCTION__);
+ TRACE_smpi_collective_out(rank);
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, __FUNCTION__);
+ TRACE_smpi_collective_out(rank);
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, __FUNCTION__);
+ TRACE_smpi_collective_out(rank);
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, "smpi_replay_run_init", extra);
- TRACE_smpi_collective_out(rank, "smpi_replay_run_init");
+ TRACE_smpi_collective_out(rank);
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(), "smpi_replay_run_finalize");
+ TRACE_smpi_collective_out(smpi_process()->index());
TRACE_smpi_finalize(smpi_process()->index());
}