summaryrefslogtreecommitdiffstats
path: root/generic/tclAssembly.c
diff options
context:
space:
mode:
authordgp <dgp@users.sourceforge.net>2013-05-28 14:04:02 (GMT)
committerdgp <dgp@users.sourceforge.net>2013-05-28 14:04:02 (GMT)
commit9eb03d3c23ab2d942ace763871d1674f3884ea9a (patch)
tree9f685a728ed0850789b5b3488001bf00e80784f6 /generic/tclAssembly.c
parent0f8c80a30c7f128120f2653d2c5fd10b395b93d7 (diff)
downloadtcl-9eb03d3c23ab2d942ace763871d1674f3884ea9a.zip
tcl-9eb03d3c23ab2d942ace763871d1674f3884ea9a.tar.gz
tcl-9eb03d3c23ab2d942ace763871d1674f3884ea9a.tar.bz2
Missed bits of dup code elimination.
Diffstat (limited to 'generic/tclAssembly.c')
-rw-r--r--generic/tclAssembly.c23
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)
*/