summaryrefslogtreecommitdiffstats
path: root/generic
diff options
context:
space:
mode:
authormdejong <mdejong>2005-10-28 03:26:32 (GMT)
committermdejong <mdejong>2005-10-28 03:26:32 (GMT)
commit71b715c88b019bf819a112ac7e8b0aa68c6dc9e8 (patch)
tree931092530cdc8242d3889e664bb9019453dce015 /generic
parent337481bde00a01912f25ffeda6d5bd4351057c7d (diff)
downloadtcl-71b715c88b019bf819a112ac7e8b0aa68c6dc9e8.zip
tcl-71b715c88b019bf819a112ac7e8b0aa68c6dc9e8.tar.gz
tcl-71b715c88b019bf819a112ac7e8b0aa68c6dc9e8.tar.bz2
* generic/tclExecute.c (ExprRoundFunc):
Fix typo where number before rounding is compared with smallest integer instead of number after rounding. This fix does not change the results of any tests. * tests/expr.test: Add round() tests for cases near the min and max int values. * tests/util.test: Remove pointless warning code about testobj command.
Diffstat (limited to 'generic')
-rw-r--r--generic/tclExecute.c4
1 files changed, 2 insertions, 2 deletions
diff --git a/generic/tclExecute.c b/generic/tclExecute.c
index 20f34e6..c238a98 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.94.2.16 2005/10/23 22:01:29 msofer Exp $
+ * RCS: @(#) $Id: tclExecute.c,v 1.94.2.17 2005/10/28 03:26:32 mdejong Exp $
*/
#include "tclInt.h"
@@ -5501,7 +5501,7 @@ ExprRoundFunc(interp, eePtr, clientData)
}
if (i <= Tcl_WideAsDouble(LLONG_MIN)) {
goto tooLarge;
- } else if (d <= (double) LONG_MIN) {
+ } else if (i <= (double) LONG_MIN) {
resPtr = Tcl_NewWideIntObj(Tcl_DoubleAsWide(i));
} else {
resPtr = Tcl_NewLongObj((long) i);