diff options
| author | Miguel Sofer <miguel.sofer@gmail.com> | 2008-07-22 21:02:25 (GMT) |
|---|---|---|
| committer | Miguel Sofer <miguel.sofer@gmail.com> | 2008-07-22 21:02:25 (GMT) |
| commit | 63d4144a37db8c69be1a8090936516467f684480 (patch) | |
| tree | 1663f0612dec0cf4dd6c42e85fe06a3f56d993d2 /generic/tclInt.h | |
| parent | 35e3d899aaa7f90fdf39652a2a4fdd45fc14965b (diff) | |
| download | tcl-63d4144a37db8c69be1a8090936516467f684480.zip tcl-63d4144a37db8c69be1a8090936516467f684480.tar.gz tcl-63d4144a37db8c69be1a8090936516467f684480.tar.bz2 | |
* generic/tclBasic.c: Added numLevels field to CommandFrame,
* generic/tclExecute.c: let GetCommandSource use it. This solves
* generic/tclInt.h: [Bug 2017146]. Thx dgp for the analysis.
Diffstat (limited to 'generic/tclInt.h')
| -rw-r--r-- | generic/tclInt.h | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/generic/tclInt.h b/generic/tclInt.h index 7614f32..dad62a8 100644 --- a/generic/tclInt.h +++ b/generic/tclInt.h @@ -14,7 +14,7 @@ * See the file "license.terms" for information on usage and redistribution of * this file, and for a DISCLAIMER OF ALL WARRANTIES. * - * RCS: @(#) $Id: tclInt.h,v 1.376 2008/07/21 22:50:34 andreas_kupries Exp $ + * RCS: @(#) $Id: tclInt.h,v 1.377 2008/07/22 21:02:30 msofer Exp $ */ #ifndef _TCLINT @@ -1094,6 +1094,8 @@ typedef struct CmdFrame { int type; /* Values see below. */ int level; /* #Frames in stack, prevent O(n) scan of * list. */ + int numLevels; /* value of interp's numLevels when the frame + * was pushed */ int *line; /* Lines the words of the command start on. */ int nline; |