summaryrefslogtreecommitdiffstats
path: root/tests
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 /tests
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 'tests')
-rw-r--r--tests/execute.test4
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