From: Arnaud Giersch <arnaud.giersch@iut-bm.univ-fcomte.fr>
Date: Thu, 7 Nov 2013 16:23:15 +0000 (+0100)
Subject: Free group_lookup at finalize.
X-Git-Tag: v3_10_rc2~13
X-Git-Url: http://info.iut-bm.univ-fcomte.fr/pub/gitweb/simgrid.git/commitdiff_plain/c68d4322d18fc964292efd6b1fe4d3569e1ceea2?ds=sidebyside

Free group_lookup at finalize.

Also remove useless assignments: variable are already reset to NULL
by xbt_dict_free.
(cherry picked from commit 078e59c8562f1a12a828b8197689c1843d0b6e07)
---

diff --git a/src/smpi/smpi_f77.c b/src/smpi/smpi_f77.c
index d32614f72c..0f49e2ee0a 100644
--- a/src/smpi/smpi_f77.c
+++ b/src/smpi/smpi_f77.c
@@ -213,13 +213,10 @@ void mpi_finalize_(int* ierr) {
    running_processes--;
    if(running_processes==0){
      xbt_dict_free(&op_lookup);
-     op_lookup = NULL;
      xbt_dict_free(&datatype_lookup);
-     datatype_lookup = NULL;
      xbt_dict_free(&request_lookup);
-     request_lookup = NULL;
+     xbt_dict_free(&group_lookup);
      xbt_dict_free(&comm_lookup);
-     comm_lookup = NULL;
    }
 }