Artifact f20391d2c68c146d3edbbfa34c2a1529a765f69c:

• File mk4tcl/patches/all/metakit-2.4.9.7-unregisterchans.diff — part of check-in [7181cf4346] at 2014-05-20 05:56:59 on branch trunk — Added patch to fix issue with calling exit with open Metakit channels (user: rkeene, size: 523) [annotate] [blame] [check-ins using] [more...]

diff -uNr metakit-2.4.9.7.orig/tcl/mk4tcl.cpp metakit-2.4.9.7-1unregisterchans/tcl/mk4tcl.cpp
--- metakit-2.4.9.7.orig/tcl/mk4tcl.cpp	2007-06-18 16:05:24.000000000 -0500
+++ metakit-2.4.9.7-1unregisterchans/tcl/mk4tcl.cpp	2014-05-20 00:55:56.857516999 -0500
@@ -737,6 +737,10 @@
 MkWorkspace::~MkWorkspace() {
   CleanupCommands();
 
+  for (MkChannel *chan = _chanList; chan; chan = chan->_next) {
+    Tcl_UnregisterChannel(_interp, chan->_chan);
+  }
+
   for (int i = _items.GetSize(); --i >= 0;)
     delete Nth(i);