diff options
Diffstat (limited to 'generic/tclIORTrans.c')
| -rw-r--r-- | generic/tclIORTrans.c | 3 |
1 files changed, 3 insertions, 0 deletions
diff --git a/generic/tclIORTrans.c b/generic/tclIORTrans.c index fa973c7..949d42d 100644 --- a/generic/tclIORTrans.c +++ b/generic/tclIORTrans.c @@ -2200,6 +2200,9 @@ DeleteReflectedTransformMap( * interpreter. They have already been marked as dead. */ + if (TclInThreadExit()) { + return; + } rtmPtr = GetThreadReflectedTransformMap(); for (hPtr = Tcl_FirstHashEntry(&rtmPtr->map, &hSearch); hPtr != NULL; |