Basic implementation of MPI_Cancel

[simgrid.git] / src / smpi / mpi / smpi_status.cpp

diff --git a/src/smpi/mpi/smpi_status.cpp b/src/smpi/mpi/smpi_status.cpp
index c0c5f4b..ed6bf53 100644 (file)
--- a/src/smpi/mpi/smpi_status.cpp
+++ b/src/smpi/mpi/smpi_status.cpp
@@ -18,9 +18,15 @@ void Status::empty(MPI_Status * status)
     status->MPI_TAG = MPI_ANY_TAG;
     status->MPI_ERROR = MPI_SUCCESS;
     status->count=0;
+    status->cancelled=0;
   }
 }
 
+int Status::cancelled(MPI_Status * status)
+{
+  return status->cancelled!=0;
+}
+
 int Status::get_count(MPI_Status * status, MPI_Datatype datatype)
 {
   return status->count / datatype->size();