diff options
author | dkf <donal.k.fellows@manchester.ac.uk> | 2024-05-16 15:55:51 (GMT) |
---|---|---|
committer | dkf <donal.k.fellows@manchester.ac.uk> | 2024-05-16 15:55:51 (GMT) |
commit | 2e5880feb8ff4b7611a286fdb6ed161bc34efd74 (patch) | |
tree | 4c5dfc35a0e86f21934bd60b9e730e0b4acbca26 /generic | |
parent | 9b8a77b23318d5a8a3cbcff05f4416c463c44c34 (diff) | |
parent | 25c627ac37f116c6abd704522d4daf578f142ebc (diff) | |
download | tcl-2e5880feb8ff4b7611a286fdb6ed161bc34efd74.zip tcl-2e5880feb8ff4b7611a286fdb6ed161bc34efd74.tar.gz tcl-2e5880feb8ff4b7611a286fdb6ed161bc34efd74.tar.bz2 |
Apply emergency workaround for [87271f7cd6]; not fixed yet, but no longer crashes
Diffstat (limited to 'generic')
-rw-r--r-- | generic/tclCmdIL.c | 7 |
1 files changed, 6 insertions, 1 deletions
diff --git a/generic/tclCmdIL.c b/generic/tclCmdIL.c index 37c9822..13f16b6 100644 --- a/generic/tclCmdIL.c +++ b/generic/tclCmdIL.c @@ -1382,7 +1382,12 @@ TclInfoFrame( * Procedure CallFrame. */ - if (procPtr != NULL) { + if (procPtr != NULL +#ifndef AVOID_EMERGENCY_HACKS + /* Emergency band-aid fix for [87271f7cd6] */ + && procPtr->cmdPtr != NULL +#endif + ) { Tcl_HashEntry *namePtr = procPtr->cmdPtr->hPtr; if (namePtr) { |