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
leaks --
[simgrid.git]
/
src
/
smpi
/
smpi_pmpi.cpp
diff --git
a/src/smpi/smpi_pmpi.cpp
b/src/smpi/smpi_pmpi.cpp
index
cd4c0a2
..
5a3cd2a
100644
(file)
--- a/
src/smpi/smpi_pmpi.cpp
+++ b/
src/smpi/smpi_pmpi.cpp
@@
-718,7
+718,7
@@
int PMPI_Comm_group(MPI_Comm comm, MPI_Group * group)
} else {
*group = smpi_comm_group(comm);
if(*group!= smpi_comm_group(MPI_COMM_WORLD) && *group != MPI_GROUP_NULL
} else {
*group = smpi_comm_group(comm);
if(*group!= smpi_comm_group(MPI_COMM_WORLD) && *group != MPI_GROUP_NULL
- && *group !=
smpi_comm_group(MPI_COMM_SELF) && *group !=
MPI_GROUP_EMPTY)
+ && *group != MPI_GROUP_EMPTY)
smpi_group_use(*group);
retval = MPI_SUCCESS;
}
smpi_group_use(*group);
retval = MPI_SUCCESS;
}
@@
-775,7
+775,7
@@
int PMPI_Comm_create(MPI_Comm comm, MPI_Group group, MPI_Comm * newcomm)
*newcomm= MPI_COMM_NULL;
retval = MPI_SUCCESS;
}else{
*newcomm= MPI_COMM_NULL;
retval = MPI_SUCCESS;
}else{
-
+ smpi_group_use(group);
*newcomm = smpi_comm_new(group, NULL);
retval = MPI_SUCCESS;
}
*newcomm = smpi_comm_new(group, NULL);
retval = MPI_SUCCESS;
}