Merge branch 'nm/fix-mailbox-leak'

Author: osnr

lib/peer.tcl

@@ -36,7 +36,10 @@ proc ::peer {process {dieOnDisconnect false}} {
         }
 	proc clear {} {
             variable process
-            Mailbox::clear $process $::thisProcess
+	    variable connected
+	    set connected false
+	    Mailbox::clear $process $::thisProcess
+            Mailbox::clear $::thisProcess $process
 	}
 
         proc share {shareStatements} {

main.tcl

@@ -597,6 +597,7 @@ namespace eval ::Mailbox {
     }
     $cc proc clear {char* from char* to} void {
         mailbox_t* mailbox = find(from, to);
+        fprintf(stderr, "Mailbox clear %s -> %s\n", from, to);
         pthread_mutex_lock(&mailbox->mutex); {
             mailbox->active = 0;
             mailbox->mail[0] = '\0';