From ec3e4ee5f1a7ffeb96e044057809944f364014e6 Mon Sep 17 00:00:00 2001 From: degomme Date: Sun, 24 Apr 2016 23:15:32 +0200 Subject: [PATCH] leaks -- --- src/smpi/smpi_comm.cpp | 3 +++ src/smpi/smpi_pmpi.cpp | 2 -- 2 files changed, 3 insertions(+), 2 deletions(-) diff --git a/src/smpi/smpi_comm.cpp b/src/smpi/smpi_comm.cpp index 3143742772..4e45a21549 100644 --- a/src/smpi/smpi_comm.cpp +++ b/src/smpi/smpi_comm.cpp @@ -288,6 +288,9 @@ MPI_Comm smpi_comm_split(MPI_Comm comm, int color, int key) reqs++; } } + if(i != 0) { + smpi_group_destroy(group_out); + } smpi_mpi_startall(reqs, requests); smpi_mpi_waitall(reqs, requests, MPI_STATUS_IGNORE); xbt_free(requests); diff --git a/src/smpi/smpi_pmpi.cpp b/src/smpi/smpi_pmpi.cpp index 00e2fce12a..5a3cd2adcc 100644 --- a/src/smpi/smpi_pmpi.cpp +++ b/src/smpi/smpi_pmpi.cpp @@ -757,8 +757,6 @@ int PMPI_Comm_dup(MPI_Comm comm, MPI_Comm * newcomm) retval = MPI_ERR_ARG; } else { retval = smpi_comm_dup(comm, newcomm); - if(retval==MPI_SUCCESS) - smpi_group_use(smpi_comm_group(*newcomm)); } return retval; } -- 2.20.1