summaryrefslogtreecommitdiffstats
path: root/generic
diff options
context:
space:
mode:
authordgp <dgp@users.sourceforge.net>2011-09-22 20:32:06 (GMT)
committerdgp <dgp@users.sourceforge.net>2011-09-22 20:32:06 (GMT)
commitf48bcdecf871a829134b40269947502b13c58c73 (patch)
tree95d1fd7e090fa0a6840204e2304b4b8763ba4e87 /generic
parent201c3c421c30870cead2b6862a090479cb4ba43e (diff)
downloadtcl-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')
-rw-r--r--generic/tclCmdIL.c2
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;
}
}