Do not call flush automatically in communcator::send...

[loba.git] / process.cpp

diff --git a/process.cpp b/process.cpp
index 338f20de49438d0e2f62708d529df4ecdafcbe39..b6afb49d8b23dded44cf25e0f6e958b77e1d3294 100644 (file)
--- a/process.cpp
+++ b/process.cpp
@@ -227,6 +227,7 @@ void process::send()
                       bind(&process::send1_no_bookkeeping, this, _1));
         prev_load_broadcast = load;
     }
+    comm.flush(false);
 }
 
 void process::receive(bool wait)
@@ -234,7 +235,7 @@ void process::receive(bool wait)
     message* msg;
     m_host_t from;
 
-    if (may_receive() && comm.recv(msg, from, wait)) {
+    while (may_receive() && comm.recv(msg, from, wait)) {
         switch (msg->get_type()) {
         case message::INFO: {
             neighbor* n = rev_neigh[from];
@@ -261,7 +262,9 @@ void process::receive(bool wait)
             break;
         }
         delete msg;
+        wait = false;           // only wait on first recv
     }
+    comm.flush(false);
 }
 
 void process::finalize1(neighbor& nb)
@@ -285,8 +288,10 @@ void process::finalize()
 
     DEBUG2("wait for CLOSE from %lu neighbor%s",
            (unsigned long )neigh.size(), ESSE(neigh.size()));
-    while (may_receive())
+    while (may_receive()) {
+        comm.flush(false);
         receive(true);
+    }
 
     comm.flush(true);
 }