diff options
| author | dgp <dgp@users.sourceforge.net> | 2013-05-28 14:04:02 (GMT) |
|---|---|---|
| committer | dgp <dgp@users.sourceforge.net> | 2013-05-28 14:04:02 (GMT) |
| commit | b3b9cb8d35e3aecf7c1121fef25a76d592102eab (patch) | |
| tree | 9f685a728ed0850789b5b3488001bf00e80784f6 /generic/tclAssembly.c | |
| parent | 251b09c99a919401499cbff4183ff4fcccdd993d (diff) | |
| download | tcl-b3b9cb8d35e3aecf7c1121fef25a76d592102eab.zip tcl-b3b9cb8d35e3aecf7c1121fef25a76d592102eab.tar.gz tcl-b3b9cb8d35e3aecf7c1121fef25a76d592102eab.tar.bz2 | |
Missed bits of dup code elimination.
Diffstat (limited to 'generic/tclAssembly.c')
| -rw-r--r-- | generic/tclAssembly.c | 23 |
1 files changed, 0 insertions, 23 deletions
diff --git a/generic/tclAssembly.c b/generic/tclAssembly.c index fff7b43..a84467f 100644 --- a/generic/tclAssembly.c +++ b/generic/tclAssembly.c @@ -324,29 +324,6 @@ static const Tcl_ObjType assembleCodeType = { }; /* - * TIP #280: Remember the per-word line information of the current command. An - * index is used instead of a pointer as recursive compilation may reallocate, - * i.e. move, the array. This is also the reason to save the nuloc now, it may - * change during the course of the function. - * - * Macro to encapsulate the variable definition and setup. - */ - -#define DefineLineInformation \ - ExtCmdLoc *mapPtr = envPtr->extCmdMapPtr; \ - int eclIndex = mapPtr->nuloc - 1 - -#define SetLineInformation(word) \ - envPtr->line = mapPtr->loc[eclIndex].line[(word)]; \ - envPtr->clNext = mapPtr->loc[eclIndex].next[(word)] - -/* - * Flags bits used by PushVarName. - */ - -#define TCL_NO_LARGE_INDEX 1 /* Do not return localIndex value > 255 */ - -/* * Source instructions recognized in the Tcl Assembly Language (TAL) */ |