diff options
| author | dgp <dgp@users.sourceforge.net> | 2011-09-22 20:32:06 (GMT) |
|---|---|---|
| committer | dgp <dgp@users.sourceforge.net> | 2011-09-22 20:32:06 (GMT) |
| commit | f48bcdecf871a829134b40269947502b13c58c73 (patch) | |
| tree | 95d1fd7e090fa0a6840204e2304b4b8763ba4e87 /generic/tclCmdIL.c | |
| parent | 201c3c421c30870cead2b6862a090479cb4ba43e (diff) | |
| download | tcl-f48bcdecf871a829134b40269947502b13c58c73.zip tcl-f48bcdecf871a829134b40269947502b13c58c73.tar.gz tcl-f48bcdecf871a829134b40269947502b13c58c73.tar.bz2 | |
Revise [info frame] so that it stops creating cycles
in the iPtr->cmdFramePtr stack.
Diffstat (limited to 'generic/tclCmdIL.c')
| -rw-r--r-- | generic/tclCmdIL.c | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/generic/tclCmdIL.c b/generic/tclCmdIL.c index 95532d3..f28e651 100644 --- a/generic/tclCmdIL.c +++ b/generic/tclCmdIL.c @@ -1163,7 +1163,7 @@ InfoFrameCmd( lastPtr = runPtr; runPtr = runPtr->nextPtr; } - if (lastPtr && !runPtr) { + if (lastPtr && (runPtr != NULL)) { lastPtr->nextPtr = corPtr->caller.cmdFramePtr; } } |