diff options
author | sebres <sebres@users.sourceforge.net> | 2024-05-16 20:28:04 (GMT) |
---|---|---|
committer | sebres <sebres@users.sourceforge.net> | 2024-05-16 20:28:04 (GMT) |
commit | d882c39f4b96a7a2f39035b4dc27817d70c5fd29 (patch) | |
tree | 758ef95e5f6585f4cb5143a745f4751e8b515152 /tests | |
parent | c51319579f93b95668629f8bf2830cb2ba2fba00 (diff) | |
download | tcl-d882c39f4b96a7a2f39035b4dc27817d70c5fd29.zip tcl-d882c39f4b96a7a2f39035b4dc27817d70c5fd29.tar.gz tcl-d882c39f4b96a7a2f39035b4dc27817d70c5fd29.tar.bz2 |
fix mem-leak originating by cyclic reference `rcPtr->name (type "channel", its refCount may be larger than 1) => statPtr => chanPtr => chanPtr->instanceData => refChan`:
this would avoid that object rcPtr->name (name of channel that gets deleted or dead) still holds the reference to statPtr, see 2nd part of bug [79474c58800cdf94].
Diffstat (limited to 'tests')
-rw-r--r-- | tests/ioCmd.test | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/tests/ioCmd.test b/tests/ioCmd.test index b341aa8..3dbb3cc 100644 --- a/tests/ioCmd.test +++ b/tests/ioCmd.test @@ -2177,7 +2177,7 @@ test iocmd-32.3 {prevent copy-state against segfault by finalize, bug [79474c588 catch {close $ch} } if {$toev ne ""} { after cancel $toev } - unset -nocomplain ::done ::ret ch in1 in2 in3 out1 out2 out3 toev + unset -nocomplain ::done ::ret ch in1 in2 in3 out1 out2 out3 toev clchlst } -result {initialize read write finalize done} # ### ### ### ######### ######### ######### |