From: mquinson <mquinson@48e7efb5-ca39-0410-a469-dd3cf9ba447f>
Date: Mon, 21 Jun 2004 17:13:05 +0000 (+0000)
Subject: implement gras_procdata_exit to plug the leaks
X-Git-Tag: v3.3~5217
X-Git-Url: http://info.iut-bm.univ-fcomte.fr/pub/gitweb/simgrid.git/commitdiff_plain/935fd603d498e38c004aa0522020ce27f16fd01a

implement gras_procdata_exit to plug the leaks


git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/simgrid/simgrid/trunk@129 48e7efb5-ca39-0410-a469-dd3cf9ba447f
---

diff --git a/src/gras/Virtu/process.c b/src/gras/Virtu/process.c
index 93475bf8a6..e46303e695 100644
--- a/src/gras/Virtu/process.c
+++ b/src/gras/Virtu/process.c
@@ -37,3 +37,12 @@ gras_procdata_init() {
   TRY(gras_dynar_new(  &(pd->cbl_list),  sizeof(gras_cblist_t *), NULL  ));
   return no_error;
 }
+
+void
+gras_procdata_exit() {
+  gras_procdata_t *pd=gras_procdata_get();
+
+  gras_dynar_free(pd->msg_queue);
+  gras_dynar_free(pd->cbl_list);
+}
+
diff --git a/src/gras/Virtu/virtu_interface.h b/src/gras/Virtu/virtu_interface.h
index f15a714bac..4cd715393d 100644
--- a/src/gras/Virtu/virtu_interface.h
+++ b/src/gras/Virtu/virtu_interface.h
@@ -41,4 +41,5 @@ typedef struct {
 /* FIXME: mv to _private? */
 gras_procdata_t *gras_procdata_get(void);
 gras_error_t gras_procdata_init(void);
+void gras_procdata_exit(void);
 #endif  /* GRAS_VIRTU_INTERFACE_H */