From f48bcdecf871a829134b40269947502b13c58c73 Mon Sep 17 00:00:00 2001
From: dgp <dgp@users.sourceforge.net>
Date: Thu, 22 Sep 2011 20:32:06 +0000
Subject: Revise [info frame] so that it stops creating cycles in the
 iPtr->cmdFramePtr stack.

---
 ChangeLog          | 5 +++++
 generic/tclCmdIL.c | 2 +-
 2 files changed, 6 insertions(+), 1 deletion(-)

diff --git a/ChangeLog b/ChangeLog
index 2096795..e2a5b21 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,8 @@
+2011-09-22  Don Porter  <dgp@users.sourceforge.net>
+
+	* generic/tclCmdIL.c:	Revise [info frame] so that it stops creating
+	cycles in the iPtr->cmdFramePtr stack.
+
 2011-09-22  Donal K. Fellows  <dkf@users.sf.net>
 
 	* doc/re_syntax.n: [Bug 2903743]: Add more magic so that we can do at
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;
         }
     }
-- 
cgit v0.12