Gasp ! A bug in the extract function ! Shame on me !

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

diff --git a/src/xbt/swag.c b/src/xbt/swag.c
index 42ae4ef..dc09977 100644 (file)
--- a/src/xbt/swag.c
+++ b/src/xbt/swag.c
@@ -59,6 +59,10 @@ void *xbt_swag_extract(void *obj, xbt_swag_t swag)
 
   if (!obj)
     return NULL;
 
   if (!obj)
     return NULL;

+  if(!xbt_swag_belongs(obj, swag)) /* Trying to remove an object that
+                                     was not in this swag */
+      return NULL;
+

   if (swag->head == swag->tail) {      /* special case */
     if (swag->head != obj)     /* Trying to remove an object that was not in this swag */
       return NULL;
   if (swag->head == swag->tail) {      /* special case */
     if (swag->head != obj)     /* Trying to remove an object that was not in this swag */
       return NULL;