From 8eca645a8d81346e1c4d39a5868058c4c0a92e35 Mon Sep 17 00:00:00 2001 From: dgp Date: Fri, 18 Apr 2003 21:54:24 +0000 Subject: Corrected bogus comments --- generic/tclCompile.c | 9 ++------- 1 file changed, 2 insertions(+), 7 deletions(-) diff --git a/generic/tclCompile.c b/generic/tclCompile.c index 19f1e25..46628b1 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.43.2.1 2003/03/19 22:53:11 msofer Exp $ + * RCS: @(#) $Id: tclCompile.c,v 1.43.2.2 2003/04/18 21:54:24 dgp Exp $ */ #include "tclInt.h" @@ -1462,15 +1462,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); -- cgit v0.12