Add a test in MSG_task_execute to stop whenever a task is being executed on two diffe...

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

diff --git a/ChangeLog b/ChangeLog
index 6feca3a..95e353e 100644 (file)
--- a/ChangeLog
+++ b/ChangeLog
@@ -21,6 +21,8 @@ SimGrid (3.0.2) unstable; urgency=low
   MSG,GRAS:
   * Bug fix: Processes were started in reverse order, wrt deployment file.
     WARNING: if your code relies on this bug, please fix it.    [AL]
+  * Bug fix: Add a test in MSG_task_execute to stop whenever a task is
+    being executed on two different locations.                  [AL]
 
   GRAS:
   * New! a real RPC mecanism, as it ought to be since too long. [MQ]

diff --git a/src/msg/gos.c b/src/msg/gos.c
index da0455d..a223cec 100644 (file)
--- a/src/msg/gos.c
+++ b/src/msg/gos.c
@@ -422,7 +422,8 @@ MSG_error_t MSG_task_put(m_task_t task,
   task_simdata = task->simdata;
   task_simdata->sender = process;
   task_simdata->source = MSG_process_get_host(process);
-  xbt_assert0(task_simdata->using==1,"Gargl!");
+  xbt_assert0(task_simdata->using==1,
+             "This taks is still being used somewhere else. You cannot send it now. Go fix your code!");
   task_simdata->comm = NULL;
   
   local_host = ((simdata_process_t) process->simdata)->host;
@@ -533,6 +534,7 @@ void __MSG_task_execute(m_process_t process, m_task_t task)
   CHECK_HOST();
 
   simdata = task->simdata;
+  xbt_assert0(!simdata->compute,"This taks is executed somewhere else. Go fix your code!");
 
   simdata->compute = surf_workstation_resource->extension_public->
     execute(MSG_process_get_host(process)->simdata->host,