summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authornijtmans <nijtmans>2010-05-21 12:51:26 (GMT)
committernijtmans <nijtmans>2010-05-21 12:51:26 (GMT)
commit21140acd90b510305ba98e94fadecbdcf73d4f86 (patch)
tree25b35297d849bb619e4a27ded966e2ae56ea48ed
parent5b13f1d368442b4edfeba1b28cdd7546f4e27256 (diff)
downloadtcl-21140acd90b510305ba98e94fadecbdcf73d4f86.zip
tcl-21140acd90b510305ba98e94fadecbdcf73d4f86.tar.gz
tcl-21140acd90b510305ba98e94fadecbdcf73d4f86.tar.bz2
[Bug #3005233] fix for build on OpenBSD vax
-rw-r--r--ChangeLog1
-rwxr-xr-xgeneric/tclStrToD.c14
2 files changed, 9 insertions, 6 deletions
diff --git a/ChangeLog b/ChangeLog
index ba841f7..d682e2e 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -12,6 +12,7 @@
* win/tclWinConsole.c signed<->unsigned mismatch. Backported from
* win/tclWinDde.c trunk.
* win/tclWinNotify.c
+ * generic/tclStrToD.c: [Bug #3005233] fix for build on OpenBSD vax
2010-05-19 Alexandre Ferrieux <ferrieux@users.sourceforge.net>
diff --git a/generic/tclStrToD.c b/generic/tclStrToD.c
index eda53ac..4484705 100755
--- a/generic/tclStrToD.c
+++ b/generic/tclStrToD.c
@@ -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: tclStrToD.c,v 1.33.2.3 2009/12/07 17:14:28 dgp Exp $
+ * RCS: @(#) $Id: tclStrToD.c,v 1.33.2.4 2010/05/21 12:51:26 nijtmans Exp $
*
*----------------------------------------------------------------------
*/
@@ -948,13 +948,14 @@ TclParseNumber(
case sINFIN:
case sINFINI:
case sINFINIT:
+#ifdef IEEE_FLOATING_POINT
case sN:
case sNA:
case sNANPAREN:
case sNANHEX:
Tcl_Panic("TclParseNumber: bad acceptState %d parsing '%s'",
acceptState, bytes);
-
+#endif
case BINARY:
shift = numTrailZeros;
if (!significandOverflow && significandWide != 0 &&
@@ -1135,12 +1136,13 @@ TclParseNumber(
objPtr->typePtr = &tclDoubleType;
break;
+#ifdef IEEE_FLOATING_POINT
case sNAN:
case sNANFINISH:
objPtr->internalRep.doubleValue = MakeNaN(signum, significandWide);
objPtr->typePtr = &tclDoubleType;
break;
-
+#endif
case INITIAL:
/* This case only to silence compiler warning */
Tcl_Panic("TclParseNumber: state INITIAL can't happen here");
@@ -1232,7 +1234,7 @@ AccumulateDecimalDigit(
* number to a bignum and fall through into the bignum case.
*/
- TclBNInitBignumFromWideUInt (bignumRepPtr, w);
+ TclBNInitBignumFromWideUInt(bignumRepPtr, w);
} else {
/*
* Wide multiplication.
@@ -1342,7 +1344,7 @@ MakeLowPrecisionDouble(
* without special handling.
*/
- retval = (double)(Tcl_WideInt)significand * pow10vals[ exponent ];
+ retval = (double)(Tcl_WideInt)significand * pow10vals[exponent];
goto returnValue;
} else {
int diff = DBL_DIG - numSigDigs;
@@ -1953,7 +1955,7 @@ TclDoubleDigits(
if (highOK) {
tc2 = (tc2 >= 0);
} else {
- tc2= (tc2 > 0);
+ tc2 = (tc2 > 0);
}
if (!tc1) {
if (!tc2) {