diff options
| author | dkf <donal.k.fellows@manchester.ac.uk> | 2024-05-16 15:51:42 (GMT) |
|---|---|---|
| committer | dkf <donal.k.fellows@manchester.ac.uk> | 2024-05-16 15:51:42 (GMT) |
| commit | 71e8e7a16883b76aaf0d406d59c8799f5c50b157 (patch) | |
| tree | 73894675725ca7628b7fcac2e27117344fde4591 /generic | |
| parent | fb0026a7a9c621672554d7f9c77c2cbdfa61be60 (diff) | |
| download | tcl-71e8e7a16883b76aaf0d406d59c8799f5c50b157.zip tcl-71e8e7a16883b76aaf0d406d59c8799f5c50b157.tar.gz tcl-71e8e7a16883b76aaf0d406d59c8799f5c50b157.tar.bz2 | |
Apply an emergency workaround
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 aef0399..279bc7b 100644 --- a/generic/tclCmdIL.c +++ b/generic/tclCmdIL.c @@ -1388,7 +1388,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) { |