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
Make functions public, they are need by macros SMPI_SAMPLE_{DELAY,FLOPS}.
[simgrid.git]
/
src
/
smpi
/
smpi_pmpi.c
diff --git
a/src/smpi/smpi_pmpi.c
b/src/smpi/smpi_pmpi.c
index
1339144
..
9206f28
100644
(file)
--- a/
src/smpi/smpi_pmpi.c
+++ b/
src/smpi/smpi_pmpi.c
@@
-1568,7
+1568,8
@@
int PMPI_Wait(MPI_Request * request, MPI_Status * status)
int PMPI_Waitany(int count, MPI_Request requests[], int *index, MPI_Status * status)
{
int PMPI_Waitany(int count, MPI_Request requests[], int *index, MPI_Status * status)
{
- int retval = 0;
+ if (index == NULL)
+ return MPI_ERR_ARG;
smpi_bench_end();
#ifdef HAVE_TRACING
smpi_bench_end();
#ifdef HAVE_TRACING
@@
-1595,12
+1596,7
@@
int PMPI_Waitany(int count, MPI_Request requests[], int *index, MPI_Status * sta
TRACE_smpi_ptp_in(rank_traced, -1, -1, __FUNCTION__,extra);
#endif
TRACE_smpi_ptp_in(rank_traced, -1, -1, __FUNCTION__,extra);
#endif
- if (index == NULL) {
- retval = MPI_ERR_ARG;
- } else {
- *index = smpi_mpi_waitany(count, requests, status);
- retval = MPI_SUCCESS;
- }
+ *index = smpi_mpi_waitany(count, requests, status);
#ifdef HAVE_TRACING
if(*index!=MPI_UNDEFINED){
int src_traced = srcs[*index];
#ifdef HAVE_TRACING
if(*index!=MPI_UNDEFINED){
int src_traced = srcs[*index];
@@
-1623,7
+1619,7
@@
int PMPI_Waitany(int count, MPI_Request requests[], int *index, MPI_Status * sta
}
#endif
smpi_bench_begin();
}
#endif
smpi_bench_begin();
- return
retval
;
+ return
MPI_SUCCESS
;
}
int PMPI_Waitall(int count, MPI_Request requests[], MPI_Status status[])
}
int PMPI_Waitall(int count, MPI_Request requests[], MPI_Status status[])