Преглед на файлове

mpi/src: test return value of MPI_Isend function and add debug message

Nathalie Furmento преди 12 години
родител
ревизия
61f41b0783
променени са 1 файла, в които са добавени 3 реда и са изтрити 1 реда
  1. 3 1
      mpi/src/starpu_mpi.c

+ 3 - 1
mpi/src/starpu_mpi.c

@@ -166,7 +166,9 @@ static void _starpu_mpi_isend_size_func(struct _starpu_mpi_req *req)
 		if (psize == -1)
 		{
 			// We know the size now, let's send it
-			MPI_Isend(&req->count, sizeof(req->count), MPI_BYTE, req->srcdst, req->mpi_tag, req->comm, &req->size_req);
+			_STARPU_MPI_DEBUG(1, "Sending size %ld (%ld %s) with tag %d to node %d (second call to pack)\n", req->count, sizeof(req->count), _starpu_mpi_datatype(MPI_BYTE), req->mpi_tag, req->srcdst);
+			ret = MPI_Isend(&req->count, sizeof(req->count), MPI_BYTE, req->srcdst, req->mpi_tag, req->comm, &req->size_req);
+			STARPU_ASSERT(ret == MPI_SUCCESS);
 		}
 		else
 		{