diff options
author | msofer <msofer@noemail.net> | 2003-02-19 14:33:37 (GMT) |
---|---|---|
committer | msofer <msofer@noemail.net> | 2003-02-19 14:33:37 (GMT) |
commit | 491468d1d3cb76957f0025c356e995af98e9a4a7 (patch) | |
tree | 35412c56a64101944132b6a36ca22e6a8d695d06 | |
parent | fff8cbc7edf23279c49bcac12356fbc8a55335c3 (diff) | |
download | tcl-491468d1d3cb76957f0025c356e995af98e9a4a7.zip tcl-491468d1d3cb76957f0025c356e995af98e9a4a7.tar.gz tcl-491468d1d3cb76957f0025c356e995af98e9a4a7.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]
FossilOrigin-Name: efdc16ed56f81aa1a3c5fca12315a4ffc99f3ca8
-rw-r--r-- | ChangeLog | 10 | ||||
-rw-r--r-- | generic/tclCompile.c | 5 | ||||
-rw-r--r-- | generic/tclExecute.c | 4 | ||||
-rw-r--r-- | generic/tclStringObj.c | 5 | ||||
-rw-r--r-- | tests/execute.test | 4 |
5 files changed, 17 insertions, 11 deletions
@@ -1,3 +1,13 @@ +2003-02-18 Miguel Sofer <msofer@users.sf.net> + + * 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] + 2003-02-18 Andreas Kupries <andreask@activestate.com> * unix/tcl.m4: [Bug #651811] Added definition of _XOPEN_SOURCE and 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 diff --git a/tests/execute.test b/tests/execute.test index 4e6c5de..b251eb4 100644 --- a/tests/execute.test +++ b/tests/execute.test @@ -14,7 +14,7 @@ # See the file "license.terms" for information on usage and redistribution # of this file, and for a DISCLAIMER OF ALL WARRANTIES. # -# RCS: @(#) $Id: execute.test,v 1.11 2002/06/22 04:19:47 dgp Exp $ +# RCS: @(#) $Id: execute.test,v 1.12 2003/02/19 14:33:42 msofer Exp $ if {[lsearch [namespace children] ::tcltest] == -1} { package require tcltest 2 @@ -695,7 +695,7 @@ test execute-7.29 {Wide int handling in INST_BITNOT} {longIs32bit} { test execute-7.30 {Wide int handling in function call} {longIs32bit} { set x 0x12345687123456 incr x - expr {sin($x) == sin(double($x))} + expr {log($x) == log(double($x))} } 1 test execute-7.31 {Wide int handling in abs()} {longIs32bit} { set x 0xa23456871234568 |