From: Arnaud Giersch <arnaud.giersch@iut-bm.univ-fcomte.fr>
Date: Tue, 20 May 2014 15:26:27 +0000 (+0200)
Subject: Free smpi_instances.
X-Git-Tag: v3_11~56
X-Git-Url: http://info.iut-bm.univ-fcomte.fr/pub/gitweb/simgrid.git/commitdiff_plain/b99f784b5bc219788376c65e06fe86b943353b0a?hp=ec5e5f2abb53923b6dc9964d25d37082af7c0f3f

Free smpi_instances.
---

diff --git a/src/smpi/smpi_deployment.c b/src/smpi/smpi_deployment.c
index 83714ad7b1..55daf3bea6 100644
--- a/src/smpi/smpi_deployment.c
+++ b/src/smpi/smpi_deployment.c
@@ -87,10 +87,10 @@ void smpi_deployment_cleanup_instances(){
   xbt_dict_cursor_t cursor = NULL;
   s_smpi_mpi_instance_t* instance = NULL;
   char *name = NULL;
-  xbt_dict_foreach((xbt_dict_t) smpi_instances, cursor, name, instance) {
+  xbt_dict_foreach(smpi_instances, cursor, name, instance) {
     while (smpi_group_unuse(smpi_comm_group(instance->comm_world)) > 0);
     xbt_free(instance->comm_world);
     xbt_barrier_destroy(instance->finalization_barrier);
   }
+  xbt_dict_free(&smpi_instances);
 }
-