diff options
| author | ferrieux <ferrieux@users.sourceforge.net> | 2010-05-31 22:58:56 (GMT) |
|---|---|---|
| committer | ferrieux <ferrieux@users.sourceforge.net> | 2010-05-31 22:58:56 (GMT) |
| commit | 085647e065d5d19e1b3e8124cb42424cdd9821c8 (patch) | |
| tree | e84ac848a1e1ffcffa2d829a33cfaa2ca066dbb2 /generic | |
| parent | 67dc34a79def67d6d61add7f0635c45806fc7a50 (diff) | |
| download | tcl-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.c | 4 |
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) { |