summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authordgp <dgp@users.sourceforge.net>2007-01-29 17:16:10 (GMT)
committerdgp <dgp@users.sourceforge.net>2007-01-29 17:16:10 (GMT)
commit7f51139e3d27166a80151f2c150f84fbc3ee28b2 (patch)
tree5ea361e1bad5f97ca61c1b8cab1d5ec17ddbecba
parentf95ec24acb030561b91c0dc3f9730debf4724eb4 (diff)
downloadtcl-7f51139e3d27166a80151f2c150f84fbc3ee28b2.zip
tcl-7f51139e3d27166a80151f2c150f84fbc3ee28b2.tar.gz
tcl-7f51139e3d27166a80151f2c150f84fbc3ee28b2.tar.bz2
* generic/tclLink.c: Broken linked float logic corrected. Thanks
to Andy Goth [Bug 1602538].
-rw-r--r--ChangeLog3
-rw-r--r--generic/tclLink.c4
2 files changed, 5 insertions, 2 deletions
diff --git a/ChangeLog b/ChangeLog
index 3ab26e5..4f07ccc 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,5 +1,8 @@
2007-01-29 Don Porter <dgp@users.sourceforge.net>
+ * generic/tclLink.c: Broken linked float logic corrected. Thanks
+ to Andy Goth [Bug 1602538].
+
* doc/fcopy.n: Typo fix. [Bug 1630627]
2007-01-28 Daniel Steffen <das@users.sourceforge.net>
diff --git a/generic/tclLink.c b/generic/tclLink.c
index 7bf4fd5..03a9249 100644
--- a/generic/tclLink.c
+++ b/generic/tclLink.c
@@ -12,7 +12,7 @@
* See the file "license.terms" for information on usage and redistribution of
* this file, and for a DISCLAIMER OF ALL WARRANTIES.
*
- * RCS: @(#) $Id: tclLink.c,v 1.17 2006/08/18 07:45:31 das Exp $
+ * RCS: @(#) $Id: tclLink.c,v 1.18 2007/01/29 17:16:11 dgp Exp $
*/
#include "tclInt.h"
@@ -498,7 +498,7 @@ LinkTraceProc(
case TCL_LINK_FLOAT:
if (Tcl_GetDoubleFromObj(interp, valueObj, &valueDouble) != TCL_OK
- || valueDouble < FLT_MIN || valueDouble > FLT_MAX) {
+ || valueDouble < -FLT_MAX || valueDouble > FLT_MAX) {
Tcl_ObjSetVar2(interp, linkPtr->varName, NULL, ObjValue(linkPtr),
TCL_GLOBAL_ONLY);
return "variable must have float value";