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) { |