X-Git-Url: http://info.iut-bm.univ-fcomte.fr/pub/gitweb/simgrid.git/blobdiff_plain/b4da4acca8a5b5e43c3bdda26ea8ab2b1e802f1e..860d8455a4aca1de4a2730a66f1f784c214fb535:/src/gras/Virtu/process.c

diff --git a/src/gras/Virtu/process.c b/src/gras/Virtu/process.c
index 4233436a9f..31732a38a7 100644
--- a/src/gras/Virtu/process.c
+++ b/src/gras/Virtu/process.c
@@ -112,7 +112,14 @@ gras_procdata_init() {
 
 void
 gras_procdata_exit() {
+  int len;
   gras_procdata_t *pd=gras_procdata_get();
 
   xbt_dict_free(&( pd->libdata ));
+  
+  /* Remove procdata in reverse order wrt creation */
+  while ((len=xbt_dynar_length(_gras_procdata_fabrics))) {
+    xbt_dynar_remove_at(_gras_procdata_fabrics,len-1,NULL);
+  }
+  xbt_dynar_free( & _gras_procdata_fabrics );
 }