From: mquinson <mquinson@48e7efb5-ca39-0410-a469-dd3cf9ba447f>
Date: Tue, 6 Jul 2004 00:31:24 +0000 (+0000)
Subject: Let it work in SG (gras_init and gras_exit called only when needed)
X-Git-Tag: v3.3~5174
X-Git-Url: http://bilbo.iut-bm.univ-fcomte.fr/pub/gitweb/simgrid.git/commitdiff_plain/df41a705b5b5f15a4806414061bf325bfd8a6272?hp=f4f8bd3804ff1e7a3c5d7c179c6cc63ee14d3059

Let it work in SG (gras_init and gras_exit called only when needed)


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

diff --git a/src/xbt/module.c b/src/xbt/module.c
index 403ed7bc3a..c7b52bb1eb 100644
--- a/src/xbt/module.c
+++ b/src/xbt/module.c
@@ -13,6 +13,7 @@
 GRAS_LOG_NEW_DEFAULT_SUBCATEGORY(module,GRAS);
 
 extern void gras_log_exit(void);
+static int gras_running_process = 0;
 
 struct gras_module_ {
   gras_dynar_t *deps;
@@ -67,9 +68,11 @@ gras_init_defaultlog(int *argc,char **argv, const char *defaultlog) {
    
   gras_process_init(); /* calls procdata_init, which calls dynar_new */
   /** init other submodules */
-  gras_msg_init();
-  gras_trp_init();
-  gras_datadesc_init();
+  if (gras_running_process++ == 0) {
+    gras_msg_init();
+    gras_trp_init();
+    gras_datadesc_init();
+  }
 }
 
 /**
@@ -81,9 +84,11 @@ void
 gras_exit(){
   INFO0("Exiting GRAS");
   gras_process_exit();
-  gras_msg_exit();
-  gras_trp_exit();
-  gras_datadesc_exit();
+  if (--gras_running_process == 0) {
+    gras_msg_exit();
+    gras_trp_exit();
+    gras_datadesc_exit();
+  }
   gras_log_exit();
   DEBUG0("Exited GRAS");
 }