From aefec11f74b58bd4853ad136ed81d3988f26906a Mon Sep 17 00:00:00 2001
From: alegrand <alegrand@48e7efb5-ca39-0410-a469-dd3cf9ba447f>
Date: Fri, 15 Apr 2005 22:19:03 +0000
Subject: [PATCH] Killall can now be called from an agent

git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/simgrid/simgrid/trunk@1228 48e7efb5-ca39-0410-a469-dd3cf9ba447f
---
 src/msg/global.c    | 11 +++++++++--
 src/msg/m_process.c |  8 ++++++--
 2 files changed, 15 insertions(+), 4 deletions(-)

diff --git a/src/msg/global.c b/src/msg/global.c
index 2d000f486f..1f6548f47b 100644
--- a/src/msg/global.c
+++ b/src/msg/global.c
@@ -490,16 +490,23 @@ int MSG_process_killall(int reset_PIDs)
 {
   xbt_fifo_item_t i = NULL;
   m_process_t p = NULL;
+  m_process_t self = MSG_process_self();
 
   while((p=xbt_fifo_shift(msg_global->process_list))) {
-    MSG_process_kill(p);
+    if(p!=self) MSG_process_kill(p);
   }
-  xbt_context_empty_trash();
+
   if(reset_PIDs>0) {
     msg_global->PID = reset_PIDs; 
     msg_global->session++;
  }
 
+  xbt_context_empty_trash();
+
+  if(self) {
+    xbt_context_yield();
+  }
+
   return msg_global->PID;
 }
 
diff --git a/src/msg/m_process.c b/src/msg/m_process.c
index 36ed639758..c80cc6b7f8 100644
--- a/src/msg/m_process.c
+++ b/src/msg/m_process.c
@@ -155,9 +155,13 @@ void MSG_process_kill(m_process_t process)
 	surf_workstation_resource->common_public->
 	  action_change_state(p_simdata->waiting_task->simdata->comm,SURF_ACTION_FAILED);
       else
-	fprintf(stderr,"UNKNOWN STATUS. Please report this bug.\n");
+	CRITICAL0("UNKNOWN STATUS. Please report this bug.");
     } else { /* Must be trying to put a task somewhere */
-      fprintf(stderr,"UNKNOWN STATUS. Please report this bug.\n");
+      if(process==MSG_process_self()) {
+	return;
+      } else {
+	CRITICAL0("UNKNOWN STATUS. Please report this bug.");
+      }
     }
   }
 
-- 
2.20.1