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 93475bf..e46303e 100644 (file)
--- 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 f15a714..4cd7153 100644 (file)
--- 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 */