summaryrefslogtreecommitdiffstats
path: root/generic
diff options
context:
space:
mode:
authorferrieux <ferrieux@users.sourceforge.net>2010-05-31 22:58:56 (GMT)
committerferrieux <ferrieux@users.sourceforge.net>2010-05-31 22:58:56 (GMT)
commit085647e065d5d19e1b3e8124cb42424cdd9821c8 (patch)
treee84ac848a1e1ffcffa2d829a33cfaa2ca066dbb2 /generic
parent67dc34a79def67d6d61add7f0635c45806fc7a50 (diff)
downloadtcl-085647e065d5d19e1b3e8124cb42424cdd9821c8.zip
tcl-085647e065d5d19e1b3e8124cb42424cdd9821c8.tar.gz
tcl-085647e065d5d19e1b3e8124cb42424cdd9821c8.tar.bz2
Fix computation of [uplevel] offsets in TIP 341.
Only depend on callerPtr chaining now. Needed for upcoming coro patch.
Diffstat (limited to 'generic')
-rw-r--r--generic/tclNamesp.c4
1 files changed, 2 insertions, 2 deletions
diff --git a/generic/tclNamesp.c b/generic/tclNamesp.c
index 41032d1..bf91bc7 100644
--- a/generic/tclNamesp.c
+++ b/generic/tclNamesp.c
@@ -22,7 +22,7 @@
* See the file "license.terms" for information on usage and redistribution of
* this file, and for a DISCLAIMER OF ALL WARRANTIES.
*
- * RCS: @(#) $Id: tclNamesp.c,v 1.205 2010/04/05 19:44:45 ferrieux Exp $
+ * RCS: @(#) $Id: tclNamesp.c,v 1.206 2010/05/31 22:58:56 ferrieux Exp $
*/
#include "tclInt.h"
@@ -4961,7 +4961,7 @@ Tcl_LogCommandInfo(
for (n=0, frame=iPtr->framePtr;
(frame && (frame != iPtr->varFramePtr));
- n++, frame=frame->callerVarPtr);
+ n++, frame=frame->callerPtr);
Tcl_ListObjAppendElement(NULL, iPtr->errorStack, iPtr->upLiteral);
Tcl_ListObjAppendElement(NULL, iPtr->errorStack, Tcl_NewIntObj(n));
} else if (iPtr->framePtr != iPtr->rootFramePtr) {