From 860d8455a4aca1de4a2730a66f1f784c214fb535 Mon Sep 17 00:00:00 2001
From: mquinson <mquinson@48e7efb5-ca39-0410-a469-dd3cf9ba447f>
Date: Thu, 23 Jun 2005 14:43:13 +0000
Subject: [PATCH] free the libdata fabrics on exit (actually call the exit
 function of each libdata)

git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/simgrid/simgrid/trunk@1384 48e7efb5-ca39-0410-a469-dd3cf9ba447f
---
 src/gras/Virtu/process.c | 7 +++++++
 1 file changed, 7 insertions(+)

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 );
 }
-- 
2.20.1