From: mquinson <mquinson@48e7efb5-ca39-0410-a469-dd3cf9ba447f>
Date: Sun, 8 Jul 2007 18:05:10 +0000 (+0000)
Subject: More verbose on exception throwing (java still raises this)
X-Git-Tag: v3.3~1681
X-Git-Url: http://info.iut-bm.univ-fcomte.fr/pub/gitweb/simgrid.git/commitdiff_plain/4ba3f02277f53f9d332c7eccc5a902bb59bb4690

More verbose on exception throwing (java still raises this)


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

diff --git a/src/simix/smx_host.c b/src/simix/smx_host.c
index 28e661bf10..b260c3d791 100644
--- a/src/simix/smx_host.c
+++ b/src/simix/smx_host.c
@@ -10,6 +10,8 @@
 #include "xbt/sysdep.h"
 #include "xbt/log.h"
 
+XBT_LOG_NEW_DEFAULT_SUBCATEGORY(simix_host, simix,
+				"Logging specific to SIMIX (hosts)");
 
 /********************************* Host **************************************/
 smx_host_t __SIMIX_host_create(const char *name,
@@ -109,8 +111,19 @@ void __SIMIX_host_destroy(smx_host_t host)
   /* Clean Simulator data */
   simdata = host->simdata;
 
-  xbt_assert0((xbt_swag_size(simdata->process_list)==0),
-	      "Some process are still running on this host");
+  if (xbt_swag_size(simdata->process_list) != 0) {
+     char *msg=bprintf("Shutting down host %s, but it's not empty:", host->name);
+     char *tmp;
+     smx_process_t process = NULL;
+
+     xbt_swag_foreach(process, simdata->process_list) {
+	tmp = bprintf("%s\n\t%s",msg,process->name);
+	free(msg);
+	msg=tmp;
+     }
+     THROW1(arg_error,0,"%s",msg);
+  }
+      
   xbt_swag_free(simdata->process_list);
 
   free(simdata);