first try at killing GRAS -- does not compile yet

[simgrid.git] / src / smpi / smpi_base.c

diff --git a/src/smpi/smpi_base.c b/src/smpi/smpi_base.c
index 29b8eb7..a534910 100644 (file)
--- a/src/smpi/smpi_base.c
+++ b/src/smpi/smpi_base.c
@@ -5,7 +5,7 @@
  * under the terms of the license (GNU LGPL) which comes with this package. */
 
 #include "private.h"
-#include "xbt/time.h"
+#include "xbt/virtu.h"
 #include "mc/mc.h"
 #include "xbt/replay.h"
 #include <errno.h>
@@ -461,10 +461,8 @@ void smpi_mpi_iprobe(int source, int tag, MPI_Comm comm, int* flag, MPI_Status*
     if(status != MPI_STATUS_IGNORE) {
       status->MPI_SOURCE = req->src;
       status->MPI_TAG = req->tag;
-      if(req->size == request->size)
-        status->MPI_ERROR = MPI_SUCCESS;
-      else status->MPI_ERROR = MPI_ERR_TRUNCATE;
-      status->count = request->size;
+      status->MPI_ERROR = MPI_SUCCESS;
+      status->count = req->size;
     }
   }
   else *flag = 0;