[certi-cvs] certi/libCERTI SocketServer.cc

[certi-cvs]

CVSROOT:        /sources/certi
Module name:    certi
Changes by:     ROUSSELOT <rousse>      08/04/23 11:54:41

Modified files:
        libCERTI       : SocketServer.cc 

Log message:
        BUG #23016 correction : create and then destroy crash RTIG on Windows XP

CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/certi/libCERTI/SocketServer.cc?cvsroot=certi&r1=3.15&r2=3.16

Patches:
Index: SocketServer.cc
===================================================================
RCS file: /sources/certi/certi/libCERTI/SocketServer.cc,v
retrieving revision 3.15
retrieving revision 3.16
diff -u -b -r3.15 -r3.16
--- SocketServer.cc     3 Apr 2008 15:21:51 -0000       3.15
+++ SocketServer.cc     23 Apr 2008 11:54:41 -0000      3.16
@@ -19,7 +19,7 @@
 // Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307
 // USA
 //
-// $Id: SocketServer.cc,v 3.15 2008/04/03 15:21:51 rousse Exp $
+// $Id: SocketServer.cc,v 3.16 2008/04/23 11:54:41 rousse Exp $
 // ----------------------------------------------------------------------------
 
 
@@ -111,7 +111,8 @@
     federate_referenced = tuple->Federate ;
 
     // If the Tuple had no references, remove it, else just delete the socket.
-    if (tuple->Federation == 0) {
+    // Also, if no federate (no Join)
+    if (tuple->Federation == 0 && tuple->Federate != 0) {
         list<SocketTuple *>::iterator i ;
         list<SocketTuple *>::iterator tmp ;
         for (i = begin(); i != end(); i++) {
@@ -329,4 +330,4 @@
 
 }
 
-// $Id: SocketServer.cc,v 3.15 2008/04/03 15:21:51 rousse Exp $
+// $Id: SocketServer.cc,v 3.16 2008/04/23 11:54:41 rousse Exp $