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 | |
| 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')
| -rw-r--r-- | generic/tclCompile.c | 5 | ||||
| -rw-r--r-- | generic/tclExecute.c | 4 | ||||
| -rw-r--r-- | generic/tclStringObj.c | 5 |
3 files changed, 5 insertions, 9 deletions
diff --git a/generic/tclCompile.c b/generic/tclCompile.c index feeb7e6..704178b 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.42 2003/02/16 01:36:32 msofer Exp $ + * RCS: @(#) $Id: tclCompile.c,v 1.43 2003/02/19 14:33:39 msofer Exp $ */ #include "tclInt.h" @@ -1448,10 +1448,9 @@ TclCompileExprWords(interp, tokenPtr, numWords, envPtr) CompileEnv *envPtr; /* Holds the resulting instructions. */ { Tcl_Token *wordPtr; - int range, numBytes, i, code; + int numBytes, i, code; CONST char *script; - range = -1; code = TCL_OK; /* diff --git a/generic/tclExecute.c b/generic/tclExecute.c index 3333959..18bba5d 100644 --- a/generic/tclExecute.c +++ b/generic/tclExecute.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: tclExecute.c,v 1.93 2003/02/18 02:25:44 hobbs Exp $ + * RCS: @(#) $Id: tclExecute.c,v 1.94 2003/02/19 14:33:39 msofer Exp $ */ #include "tclInt.h" @@ -5446,7 +5446,6 @@ ExprSrandFunc(interp, eePtr, clientData) Interp *iPtr = (Interp *) interp; Tcl_Obj *valuePtr; long i = 0; /* Initialized to avoid compiler warning. */ - int result; /* * Set stackPtr and stackTop from eePtr. @@ -5462,7 +5461,6 @@ ExprSrandFunc(interp, eePtr, clientData) valuePtr = POP_OBJECT(); if (VerifyExprObjType(interp, valuePtr) != TCL_OK) { - result = TCL_ERROR; goto badValue; } 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 |