From 8aadc030761bd8e52324ec1dffe53dd335c67dd8 Mon Sep 17 00:00:00 2001 From: Arnaud Giersch Date: Mon, 5 Feb 2018 17:06:25 +0100 Subject: [PATCH] Rescue cleanups lost with commit 8914cdf67bb2cdd7b64e6eeef5b06c29b24c3c96. --- src/smpi/internals/smpi_process.cpp | 4 ++++ 1 file changed, 4 insertions(+) diff --git a/src/smpi/internals/smpi_process.cpp b/src/smpi/internals/smpi_process.cpp index 0a61f9494a..e090be0b66 100644 --- a/src/smpi/internals/smpi_process.cpp +++ b/src/smpi/internals/smpi_process.cpp @@ -52,6 +52,10 @@ Process::Process(ActorPtr actor, msg_bar_t finalization_barrier) Process::~Process() { + if (comm_self_ != MPI_COMM_NULL) + simgrid::smpi::Comm::destroy(comm_self_); + if (comm_intra_ != MPI_COMM_NULL) + simgrid::smpi::Comm::destroy(comm_intra_); xbt_os_timer_free(timer_); xbt_mutex_destroy(mailboxes_mutex_); } -- 2.20.1