summaryrefslogtreecommitdiffstats
path: root/generic
diff options
context:
space:
mode:
authorMiguel Sofer <miguel.sofer@gmail.com>2003-02-19 14:33:37 (GMT)
committerMiguel Sofer <miguel.sofer@gmail.com>2003-02-19 14:33:37 (GMT)
commit2f11046286a55314b942213dfb6f2fad4fdb837e (patch)
tree35412c56a64101944132b6a36ca22e6a8d695d06 /generic
parente957a316c0074ebe8a764377855fa226942ba2af (diff)
downloadtcl-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.c5
-rw-r--r--generic/tclExecute.c4
-rw-r--r--generic/tclStringObj.c5
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