Check-in [7181cf4346]
Overview
Comment:Added patch to fix issue with calling exit with open Metakit channels
Downloads: Tarball | ZIP archive | SQL archive
Timelines: family | ancestors | descendants | both | trunk
Files: files | file ages | folders
SHA1:7181cf43468081c41ca1cdce45bdfc51293015e3
User & Date: rkeene on 2014-05-20 05:56:59
Other Links: manifest | tags
Context
2014-05-20
20:33
Updated to correct issue where Metakit fails to build but is not detected check-in: 930c36ab1f user: rkeene tags: trunk
05:56
Added patch to fix issue with calling exit with open Metakit channels check-in: 7181cf4346 user: rkeene tags: trunk
2014-05-19
05:00
Removed TclOO removal from minimal builds for now, not maintainable check-in: a90b3aacf3 user: rkeene tags: trunk
Changes

Added mk4tcl/patches/all/metakit-2.4.9.7-unregisterchans.diff version [f20391d2c6].





























>
>
>
>
>
>
>
>
>
>
>
>
>
>
1
2
3
4
5
6
7
8
9
10
11
12
13
14
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);