diff options
| author | sebres <sebres@users.sourceforge.net> | 2024-07-02 12:38:23 (GMT) |
|---|---|---|
| committer | sebres <sebres@users.sourceforge.net> | 2024-07-02 12:38:23 (GMT) |
| commit | 144da13d9ebe6734910fe0b8e6d9da89dc8c17b7 (patch) | |
| tree | 139e3637bc3cfe35a06c9a768e1b0293cda623fe /generic/tclCmdIL.c | |
| parent | a055f8185e434d8ec0b518b002d1c79026919cfc (diff) | |
| parent | 7dea0c626dd1ccef035092ff994f9f36070177e3 (diff) | |
| download | tcl-144da13d9ebe6734910fe0b8e6d9da89dc8c17b7.zip tcl-144da13d9ebe6734910fe0b8e6d9da89dc8c17b7.tar.gz tcl-144da13d9ebe6734910fe0b8e6d9da89dc8c17b7.tar.bz2 | |
merge 8.6
Diffstat (limited to 'generic/tclCmdIL.c')
| -rw-r--r-- | generic/tclCmdIL.c | 7 |
1 files changed, 5 insertions, 2 deletions
diff --git a/generic/tclCmdIL.c b/generic/tclCmdIL.c index 40ae998..7f17e4f 100644 --- a/generic/tclCmdIL.c +++ b/generic/tclCmdIL.c @@ -1147,9 +1147,9 @@ InfoFrameCmd( } corPtr = corPtr->callerEEPtr->corPtr; } - topLevel += (*cmdFramePtrPtr)->level; + topLevel += *cmdFramePtrPtr ? (*cmdFramePtrPtr)->level : 1; - if (topLevel != iPtr->cmdFramePtr->level) { + if (iPtr->cmdFramePtr && topLevel != iPtr->cmdFramePtr->level) { framePtr = iPtr->cmdFramePtr; while (framePtr) { framePtr->level = topLevel--; @@ -1198,6 +1198,9 @@ InfoFrameCmd( } framePtr = iPtr->cmdFramePtr; + if (!framePtr) { + goto levelError; + } while (++level <= 0) { framePtr = framePtr->nextPtr; if (!framePtr) { |