summaryrefslogtreecommitdiffstats
path: root/generic
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 /generic
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].
Diffstat (limited to 'generic')
-rw-r--r--generic/tclLink.c4
1 files changed, 2 insertions, 2 deletions
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";