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 /tests | |
| 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 'tests')
| -rw-r--r-- | tests/execute.test | 4 |
1 files changed, 2 insertions, 2 deletions
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 |