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 | b542f7763dcd77ea5d1ca47537f4e4aee110b71d (patch) | |
| tree | 73894675725ca7628b7fcac2e27117344fde4591 /generic/tclCmdIL.c | |
| parent | 6b40067413c58b574f984a0974769a79f7097174 (diff) | |
| download | tcl-b542f7763dcd77ea5d1ca47537f4e4aee110b71d.zip tcl-b542f7763dcd77ea5d1ca47537f4e4aee110b71d.tar.gz tcl-b542f7763dcd77ea5d1ca47537f4e4aee110b71d.tar.bz2 | |
Apply an emergency workaround
Diffstat (limited to 'generic/tclCmdIL.c')
| -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) { |