diff options
| author | Miguel Sofer <miguel.sofer@gmail.com> | 2003-02-19 14:33:37 (GMT) |
|---|---|---|
| committer | Miguel Sofer <miguel.sofer@gmail.com> | 2003-02-19 14:33:37 (GMT) |
| commit | 2f11046286a55314b942213dfb6f2fad4fdb837e (patch) | |
| tree | 35412c56a64101944132b6a36ca22e6a8d695d06 /generic/tclStringObj.c | |
| parent | e957a316c0074ebe8a764377855fa226942ba2af (diff) | |
| download | tcl-2f11046286a55314b942213dfb6f2fad4fdb837e.zip tcl-2f11046286a55314b942213dfb6f2fad4fdb837e.tar.gz tcl-2f11046286a55314b942213dfb6f2fad4fdb837e.tar.bz2 | |
* generic/tclCompile.c (TclCompileExprWords): remove unused
variable "range" [Bug 664743]
* generic/tclExecute.c (ExprSrandFunc): remove unused
variable "result" [Bug 664743]
* generic/tclStringObj.c (UpdateStringOfString): remove unused
variable "length" [Bug 664751]
* tests/execute.test (execute-7.30): fix for [Bug 664775]
Diffstat (limited to 'generic/tclStringObj.c')
| -rw-r--r-- | generic/tclStringObj.c | 5 |
1 files changed, 2 insertions, 3 deletions
diff --git a/generic/tclStringObj.c b/generic/tclStringObj.c index e724e9b..1fb7bcd 100644 --- a/generic/tclStringObj.c +++ b/generic/tclStringObj.c @@ -33,7 +33,7 @@ * See the file "license.terms" for information on usage and redistribution * of this file, and for a DISCLAIMER OF ALL WARRANTIES. * - * RCS: @(#) $Id: tclStringObj.c,v 1.30 2003/02/15 02:14:33 hobbs Exp $ */ + * RCS: @(#) $Id: tclStringObj.c,v 1.31 2003/02/19 14:33:42 msofer Exp $ */ #include "tclInt.h" @@ -1828,7 +1828,7 @@ static void UpdateStringOfString(objPtr) Tcl_Obj *objPtr; /* Object with string rep to update. */ { - int i, length, size; + int i, size; Tcl_UniChar *unicode; char dummy[TCL_UTF_MAX]; char *dst; @@ -1850,7 +1850,6 @@ UpdateStringOfString(objPtr) } unicode = stringPtr->unicode; - length = stringPtr->numChars * sizeof(Tcl_UniChar); /* * Translate the Unicode string to UTF. "size" will hold the |