VERB0("Starting...");
comp_iter = lb_iter = 0;
while (true) {
- if (opt::min_iter_duration) {
+ double ld = lb_load();
+ if (ld > 0.0) {
double now = MSG_get_clock();
- if (now < next_iter_after_date){
- double delay = next_iter_after_date - now;
- DEBUG1("sleeping for %g s", delay);
- MSG_process_sleep(delay);
- }
+ if (now < next_iter_after_date)
+ MSG_process_sleep(next_iter_after_date - now);
next_iter_after_date = MSG_get_clock() + opt::min_iter_duration;
- }
- double ld = lb_load();
- if (ld > 0.0) {
++lb_iter;
if (opt::log_rate && lb_iter % opt::log_rate == 0) {
// block on receiving unless there is something to compute or
// to send
- bool wait = (load == 0 && lb_load() == prev_load_broadcast);
- receive(wait);
+ double timeout;
+ if (load != 0 || lb_load() != prev_load_broadcast)
+ timeout = 0.0;
+ else if (opt::min_iter_duration)
+ timeout = opt::min_iter_duration;
+ else
+ timeout = 1.0;
+ receive(timeout);
// one of our neighbor is finalizing
if (opt::exit_on_close && close_received) {
comm.flush(false);
}
-void process::receive(bool wait)
+void process::receive(double timeout)
{
message* msg;
m_host_t from;
- DEBUG1("%sblocking receive", "\0non-" + !wait);
- while (may_receive() && comm.recv(msg, from, wait)) {
+ DEBUG2("%sblocking receive (%g)", "\0non-" + !timeout, timeout);
+ while (may_receive() && comm.recv(msg, from, timeout)) {
switch (msg->get_type()) {
case message::INFO: {
neighbor* n = rev_neigh[from];
break;
}
delete msg;
- wait = false; // only wait on first recv
+ timeout = 0.0; // only wait on first recv
}
comm.flush(false);
}
(unsigned long )neigh.size(), ESSE(neigh.size()));
while (may_receive()) {
comm.flush(false);
- receive(true);
+ receive(-1.0);
}
comm.flush(true);