diff options
| author | dgp <dgp@users.sourceforge.net> | 2013-07-11 23:19:14 (GMT) |
|---|---|---|
| committer | dgp <dgp@users.sourceforge.net> | 2013-07-11 23:19:14 (GMT) |
| commit | 906e3c456afb4ee425936e01ffb768ae30271da4 (patch) | |
| tree | 46ee9cd7981abecfaa65f4a4fbe0127ebf536bac /generic/tclCompCmds.c | |
| parent | 6da16cce5001da699a5d43e075eaf706b8d68d63 (diff) | |
| download | tcl-906e3c456afb4ee425936e01ffb768ae30271da4.zip tcl-906e3c456afb4ee425936e01ffb768ae30271da4.tar.gz tcl-906e3c456afb4ee425936e01ffb768ae30271da4.tar.bz2 | |
Revise the CompileWord() and PushVarNameWord() macros to make explicit the
SetLineInformation() that's in each of them.
Diffstat (limited to 'generic/tclCompCmds.c')
| -rw-r--r-- | generic/tclCompCmds.c | 9 |
1 files changed, 1 insertions, 8 deletions
diff --git a/generic/tclCompCmds.c b/generic/tclCompCmds.c index a56727d..0a1a739 100644 --- a/generic/tclCompCmds.c +++ b/generic/tclCompCmds.c @@ -3164,10 +3164,7 @@ TclPushVarName( CompileEnv *envPtr, /* Holds resulting instructions. */ int flags, /* TCL_NO_LARGE_INDEX | TCL_NO_ELEMENT. */ int *localIndexPtr, /* Must not be NULL. */ - int *isScalarPtr, /* Must not be NULL. */ - int line, /* Line the token starts on. */ - int *clNext) /* Reference to offset of next hidden cont. - * line. */ + int *isScalarPtr) /* Must not be NULL. */ { register const char *p; const char *name, *elName; @@ -3347,8 +3344,6 @@ TclPushVarName( if (elName != NULL && !(flags & TCL_NO_ELEMENT)) { if (elNameChars) { - envPtr->line = line; - envPtr->clNext = clNext; TclCompileTokens(interp, elemTokenPtr, elemTokenCount, envPtr); } else { @@ -3360,8 +3355,6 @@ TclPushVarName( * The var name isn't simple: compile and push it. */ - envPtr->line = line; - envPtr->clNext = clNext; CompileTokens(envPtr, varTokenPtr, interp); } |