summaryrefslogtreecommitdiffstats
path: root/generic/tclCmdIL.c
diff options
context:
space:
mode:
authordkf <donal.k.fellows@manchester.ac.uk>2024-05-17 13:43:40 (GMT)
committerdkf <donal.k.fellows@manchester.ac.uk>2024-05-17 13:43:40 (GMT)
commit9009ea48d0f9433eb9b3f190bc88d9a593ba1dc4 (patch)
tree431cb935928e97207bb3413bc8262d24d92436bf /generic/tclCmdIL.c
parent3fc93ae99aa7fda620b068366b4e6a53f4aa4c0a (diff)
parenta8a9dd7928c5767880b492d26f061ffc29992773 (diff)
downloadtcl-9009ea48d0f9433eb9b3f190bc88d9a593ba1dc4.zip
tcl-9009ea48d0f9433eb9b3f190bc88d9a593ba1dc4.tar.gz
tcl-9009ea48d0f9433eb9b3f190bc88d9a593ba1dc4.tar.bz2
Proper fix for [87271f7cd6]. Structures relating to [info frame] in a method now have the correct lifetime.
Diffstat (limited to 'generic/tclCmdIL.c')
-rw-r--r--generic/tclCmdIL.c7
1 files changed, 1 insertions, 6 deletions
diff --git a/generic/tclCmdIL.c b/generic/tclCmdIL.c
index 279bc7b..aef0399 100644
--- a/generic/tclCmdIL.c
+++ b/generic/tclCmdIL.c
@@ -1388,12 +1388,7 @@ TclInfoFrame(
* Procedure CallFrame.
*/
- if (procPtr != NULL
-#ifndef AVOID_EMERGENCY_HACKS
- /* Emergency band-aid fix for [87271f7cd6] */
- && procPtr->cmdPtr != NULL
-#endif
- ) {
+ if (procPtr != NULL) {
Tcl_HashEntry *namePtr = procPtr->cmdPtr->hPtr;
if (namePtr) {