diff options
| author | dgp <dgp@users.sourceforge.net> | 2003-04-18 21:54:51 (GMT) |
|---|---|---|
| committer | dgp <dgp@users.sourceforge.net> | 2003-04-18 21:54:51 (GMT) |
| commit | 9a1cea83309c598fc6068ddeede9f7d9d165e76d (patch) | |
| tree | 9dd098fe54f25cebd1180aea5a6a9d2086f50b31 /generic/tclCompile.c | |
| parent | 5f318bb2a6eff62e04021e5d2c49f82cbc24c6c3 (diff) | |
| download | tcl-9a1cea83309c598fc6068ddeede9f7d9d165e76d.zip tcl-9a1cea83309c598fc6068ddeede9f7d9d165e76d.tar.gz tcl-9a1cea83309c598fc6068ddeede9f7d9d165e76d.tar.bz2 | |
corrected bogus comments
Diffstat (limited to 'generic/tclCompile.c')
| -rw-r--r-- | generic/tclCompile.c | 9 |
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); |