From: mquinson <mquinson@48e7efb5-ca39-0410-a469-dd3cf9ba447f>
Date: Mon, 5 Jul 2004 23:11:31 +0000 (+0000)
Subject: process_{init,exit} from within gras_{init,exit}
X-Git-Tag: v3.3~5182
X-Git-Url: http://info.iut-bm.univ-fcomte.fr/pub/gitweb/simgrid.git/commitdiff_plain/f9d3c1e1600afd3d69155d3cf6d26ed054c97619?ds=sidebyside

process_{init,exit} from within gras_{init,exit}


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

diff --git a/examples/gras_stub_generator b/examples/gras_stub_generator
index 9670c753ea..174af654af 100755
--- a/examples/gras_stub_generator
+++ b/examples/gras_stub_generator
@@ -59,10 +59,7 @@ foreach (keys %process) {
     print OUT<<EOF
 int launch_$_(int argc, char *argv[]) {
     
-  if (gras_process_init()) exit(1);
   $_(argc,argv);
-  if (gras_process_exit()) exit(1);
-
   return 0;
 }
 
@@ -128,9 +125,7 @@ int main(int argc, char *argv[]){
   int errcode;
 
   gras_init(&argc,argv);
-  gras_process_init();
   errcode=$pname(argc,argv);
-  gras_process_exit();
   gras_exit();
  
   return errcode;
diff --git a/src/xbt/module.c b/src/xbt/module.c
index 1398642f10..403ed7bc3a 100644
--- a/src/xbt/module.c
+++ b/src/xbt/module.c
@@ -65,6 +65,7 @@ gras_init_defaultlog(int *argc,char **argv, const char *defaultlog) {
      TRYFAIL(gras_log_control_set(defaultlog));
   }
    
+  gras_process_init(); /* calls procdata_init, which calls dynar_new */
   /** init other submodules */
   gras_msg_init();
   gras_trp_init();
@@ -79,6 +80,7 @@ gras_init_defaultlog(int *argc,char **argv, const char *defaultlog) {
 void 
 gras_exit(){
   INFO0("Exiting GRAS");
+  gras_process_exit();
   gras_msg_exit();
   gras_trp_exit();
   gras_datadesc_exit();