A
lgorithmique
N
umérique
D
istribuée
Public GIT Repository
projects
/
simgrid.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Fix smpi issue
[simgrid.git]
/
src
/
smpi
/
colls
/
alltoallv-ompi-basic-linear.c
diff --git
a/src/smpi/colls/alltoallv-ompi-basic-linear.c
b/src/smpi/colls/alltoallv-ompi-basic-linear.c
index
f90471d
..
fe035ae
100644
(file)
--- a/
src/smpi/colls/alltoallv-ompi-basic-linear.c
+++ b/
src/smpi/colls/alltoallv-ompi-basic-linear.c
@@
-1,6
+1,5
@@
#include "colls_private.h"
#include "colls_private.h"
-#define MCA_COLL_BASE_TAG_ALLTOALLV 111
/*
* Linear functions are copied from the basic coll module. For
* some small number of nodes and/or small data sizes they are just as
/*
* Linear functions are copied from the basic coll module. For
* some small number of nodes and/or small data sizes they are just as
@@
-57,7
+56,7
@@
smpi_coll_tuned_alltoallv_ompi_basic_linear(void *sbuf, int *scounts, int *sdisp
prcv = ((char *) rbuf) + (rdisps[i] * rext);
*preq = smpi_irecv_init(prcv, rcounts[i], rdtype,
prcv = ((char *) rbuf) + (rdisps[i] * rext);
*preq = smpi_irecv_init(prcv, rcounts[i], rdtype,
- i,
MCA_COLL_BASE
_TAG_ALLTOALLV, comm
+ i,
COLL
_TAG_ALLTOALLV, comm
);
preq++;
++nreqs;
);
preq++;
++nreqs;
@@
-72,7
+71,7
@@
smpi_coll_tuned_alltoallv_ompi_basic_linear(void *sbuf, int *scounts, int *sdisp
psnd = ((char *) sbuf) + (sdisps[i] * sext);
*preq=smpi_isend_init(psnd, scounts[i], sdtype,
psnd = ((char *) sbuf) + (sdisps[i] * sext);
*preq=smpi_isend_init(psnd, scounts[i], sdtype,
- i,
MCA_COLL_BASE
_TAG_ALLTOALLV, comm
+ i,
COLL
_TAG_ALLTOALLV, comm
);
preq++;
++nreqs;
);
preq++;
++nreqs;
@@
-94,6
+93,7
@@
smpi_coll_tuned_alltoallv_ompi_basic_linear(void *sbuf, int *scounts, int *sdisp
for (i = 0; i < nreqs; ++i) {
if(ireqs[i]!=MPI_REQUEST_NULL)smpi_mpi_request_free(&ireqs[i]);
}
for (i = 0; i < nreqs; ++i) {
if(ireqs[i]!=MPI_REQUEST_NULL)smpi_mpi_request_free(&ireqs[i]);
}
+ free(ireqs);
return MPI_SUCCESS;
}
return MPI_SUCCESS;
}