for (i = 1; i < size; i++) {
if (already_received[i] == 0) {
- Request::iprobe(i, MPI_ANY_TAG, comm, &flag_array[i],
- MPI_STATUSES_IGNORE);
- simcall_process_sleep(0.0001);
+ Request::iprobe(i, MPI_ANY_TAG, comm, &flag_array[i], MPI_STATUSES_IGNORE);
+ simgrid::s4u::this_actor::sleep_for(0.0001);
+ }
}
- }
header_index = 0;
/* recv 1-byte message */
int rank = simgrid::s4u::this_actor::get_pid();
TRACE_smpi_sleeping_in(rank, secs);
- simcall_process_sleep(secs);
+ simgrid::s4u::this_actor::sleep_for(secs);
TRACE_smpi_sleeping_out(rank);
#endif
}
if (smpi_wtime_sleep > 0)
- simcall_process_sleep(smpi_wtime_sleep);
+ simgrid::s4u::this_actor::sleep_for(smpi_wtime_sleep);
smpi_bench_begin();
return 0;
}
tp->tv_nsec = static_cast<long int>((now - tp->tv_sec) * 1e9);
}
if (smpi_wtime_sleep > 0)
- simcall_process_sleep(smpi_wtime_sleep);
+ simgrid::s4u::this_actor::sleep_for(smpi_wtime_sleep);
smpi_bench_begin();
return 0;
}
smpi_bench_end();
time = SIMIX_get_clock();
if (smpi_wtime_sleep > 0)
- simcall_process_sleep(smpi_wtime_sleep);
+ simgrid::s4u::this_actor::sleep_for(smpi_wtime_sleep);
smpi_bench_begin();
} else {
time = SIMIX_get_clock();
void smpi_mpi_init() {
smpi_init_fortran_types();
if(smpi_init_sleep > 0)
- simcall_process_sleep(smpi_init_sleep);
+ simgrid::s4u::this_actor::sleep_for(smpi_init_sleep);
}
}
if(sleeptime > 0.0){
- simcall_process_sleep(sleeptime);
+ simgrid::s4u::this_actor::sleep_for(sleeptime);
XBT_DEBUG("sending size of %zu : sleep %f ", size_, sleeptime);
}
}
if(smpi_test_sleep > 0)
- simcall_process_sleep(nsleeps*smpi_test_sleep);
+ simgrid::s4u::this_actor::sleep_for(nsleeps * smpi_test_sleep);
Status::empty(status);
*flag = 1;
//multiplier to the sleeptime, to increase speed of execution, each failed testany will increase it
static int nsleeps = 1;
if(smpi_test_sleep > 0)
- simcall_process_sleep(nsleeps*smpi_test_sleep);
+ simgrid::s4u::this_actor::sleep_for(nsleeps * smpi_test_sleep);
try{
i = simcall_comm_testany(comms.data(), comms.size()); // The i-th element in comms matches!
} catch (const Exception&) {
//integrate pseudo-timing for buffering of small messages, do not bother to execute the simcall if 0
double sleeptime =
simgrid::s4u::Actor::self()->get_host()->extension<simgrid::smpi::Host>()->orecv(req->real_size());
- if(sleeptime > 0.0){
- simcall_process_sleep(sleeptime);
+ if (sleeptime > 0.0) {
+ simgrid::s4u::this_actor::sleep_for(sleeptime);
XBT_DEBUG("receiving size of %zu : sleep %f ", req->real_size_, sleeptime);
}
unref(&(req->detached_sender_));