From 35c4cf812c42955616889d655c9d482e2d3332e7 Mon Sep 17 00:00:00 2001 From: pini Date: Sat, 13 Mar 2010 16:23:55 +0000 Subject: [PATCH] Fixed buggy implementation of MPI_Waitsome git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/simgrid/simgrid/trunk@7244 48e7efb5-ca39-0410-a469-dd3cf9ba447f --- src/smpi/smpi_base.c | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) diff --git a/src/smpi/smpi_base.c b/src/smpi/smpi_base.c index e1492b71b2..01439350a0 100644 --- a/src/smpi/smpi_base.c +++ b/src/smpi/smpi_base.c @@ -243,10 +243,11 @@ int smpi_mpi_waitsome(int incount, MPI_Request requests[], int* indices, MPI_Sta int i, count; count = 0; - for(i = 0; i < count; i++) { + for(i = 0; i < incount; i++) { if(requests[i] != MPI_REQUEST_NULL) { data = (MPI_Request)SIMIX_communication_get_data(requests[i]->pair); if(data != MPI_REQUEST_NULL && data->complete == 1) { + SIMIX_communication_destroy(requests[i]->pair); finish_wait(&requests[i], status != MPI_STATUS_IGNORE ? &status[i] : MPI_STATUS_IGNORE); indices[count] = i; count++; -- 2.20.1