From c68d4322d18fc964292efd6b1fe4d3569e1ceea2 Mon Sep 17 00:00:00 2001 From: Arnaud Giersch Date: Thu, 7 Nov 2013 17:23:15 +0100 Subject: [PATCH] Free group_lookup at finalize. Also remove useless assignments: variable are already reset to NULL by xbt_dict_free. (cherry picked from commit 078e59c8562f1a12a828b8197689c1843d0b6e07) --- src/smpi/smpi_f77.c | 5 +---- 1 file changed, 1 insertion(+), 4 deletions(-) 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; } } -- 2.20.1