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
don't mark inline the functions that are exported
[simgrid.git]
/
src
/
smpi
/
smpi_deployment.c
diff --git
a/src/smpi/smpi_deployment.c
b/src/smpi/smpi_deployment.c
index
33177ac
..
30df611
100644
(file)
--- a/
src/smpi/smpi_deployment.c
+++ b/
src/smpi/smpi_deployment.c
@@
-88,7
+88,8
@@
void smpi_deployment_cleanup_instances(){
s_smpi_mpi_instance_t* instance = NULL;
char *name = NULL;
xbt_dict_foreach(smpi_instances, cursor, name, instance) {
s_smpi_mpi_instance_t* instance = NULL;
char *name = NULL;
xbt_dict_foreach(smpi_instances, cursor, name, instance) {
- while (smpi_group_unuse(smpi_comm_group(instance->comm_world)) > 0);
+ if(instance->comm_world!=MPI_COMM_NULL)
+ while (smpi_group_unuse(smpi_comm_group(instance->comm_world)) > 0);
xbt_free(instance->comm_world);
xbt_barrier_destroy(instance->finalization_barrier);
}
xbt_free(instance->comm_world);
xbt_barrier_destroy(instance->finalization_barrier);
}