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 | |
| parent | 6b40067413c58b574f984a0974769a79f7097174 (diff) | |
| download | tcl-b542f7763dcd77ea5d1ca47537f4e4aee110b71d.zip tcl-b542f7763dcd77ea5d1ca47537f4e4aee110b71d.tar.gz tcl-b542f7763dcd77ea5d1ca47537f4e4aee110b71d.tar.bz2 | |
Apply an emergency workaround
| -rw-r--r-- | generic/tclCmdIL.c | 7 | ||||
| -rw-r--r-- | tests/oo.test | 3 |
2 files changed, 8 insertions, 2 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) { diff --git a/tests/oo.test b/tests/oo.test index 38fb276..7266255 100644 --- a/tests/oo.test +++ b/tests/oo.test @@ -3296,7 +3296,8 @@ test oo-22.2 {OO and info frame: Bug 3001438} -setup { } -match glob -cleanup { c destroy } -result {* cmd {info frame 0} method test class ::c level 0} -test oo-22.3 {OO and coroutines and info frame} -setup { +# BUG: second call is missing info (caused by workaround in tclCmdIL.c) +test oo-22.3 {OO and coroutines and info frame} -constraints knownBug -setup { oo::class create A { self method run {nworkers} { set ::result {} |