summaryrefslogtreecommitdiffstats
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)
commitb3b9cb8d35e3aecf7c1121fef25a76d592102eab (patch)
tree9f685a728ed0850789b5b3488001bf00e80784f6
parent251b09c99a919401499cbff4183ff4fcccdd993d (diff)
downloadtcl-b3b9cb8d35e3aecf7c1121fef25a76d592102eab.zip
tcl-b3b9cb8d35e3aecf7c1121fef25a76d592102eab.tar.gz
tcl-b3b9cb8d35e3aecf7c1121fef25a76d592102eab.tar.bz2
Missed bits of dup code elimination.
-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)
*/