summaryrefslogtreecommitdiffstats
path: root/generic/tclCompile.c
diff options
context:
space:
mode:
authordgp <dgp@users.sourceforge.net>2003-04-18 21:54:51 (GMT)
committerdgp <dgp@users.sourceforge.net>2003-04-18 21:54:51 (GMT)
commit9a1cea83309c598fc6068ddeede9f7d9d165e76d (patch)
tree9dd098fe54f25cebd1180aea5a6a9d2086f50b31 /generic/tclCompile.c
parent5f318bb2a6eff62e04021e5d2c49f82cbc24c6c3 (diff)
downloadtcl-9a1cea83309c598fc6068ddeede9f7d9d165e76d.zip
tcl-9a1cea83309c598fc6068ddeede9f7d9d165e76d.tar.gz
tcl-9a1cea83309c598fc6068ddeede9f7d9d165e76d.tar.bz2
corrected bogus comments
Diffstat (limited to 'generic/tclCompile.c')
-rw-r--r--generic/tclCompile.c9
1 files changed, 2 insertions, 7 deletions
diff --git a/generic/tclCompile.c b/generic/tclCompile.c
index fb7443e..b492e3b 100644
--- a/generic/tclCompile.c
+++ b/generic/tclCompile.c
@@ -11,7 +11,7 @@
* See the file "license.terms" for information on usage and redistribution
* of this file, and for a DISCLAIMER OF ALL WARRANTIES.
*
- * RCS: @(#) $Id: tclCompile.c,v 1.46 2003/03/19 22:24:14 msofer Exp $
+ * RCS: @(#) $Id: tclCompile.c,v 1.47 2003/04/18 21:54:51 dgp Exp $
*/
#include "tclInt.h"
@@ -1381,15 +1381,10 @@ TclCompileExprWords(interp, tokenPtr, numWords, envPtr)
/*
* If the expression is a single word that doesn't require
- * substitutions, just compile it's string into inline instructions.
+ * substitutions, just compile its string into inline instructions.
*/
if ((numWords == 1) && (tokenPtr->type == TCL_TOKEN_SIMPLE_WORD)) {
- /*
- * Temporarily overwrite the character just after the end of the
- * string with a 0 byte.
- */
-
script = tokenPtr[1].start;
numBytes = tokenPtr[1].size;
code = TclCompileExpr(interp, script, numBytes, envPtr);