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