summaryrefslogtreecommitdiffstats
path: root/generic
diff options
context:
space:
mode:
authornijtmans <nijtmans>2010-05-21 12:43:29 (GMT)
committernijtmans <nijtmans>2010-05-21 12:43:29 (GMT)
commitb6b47d546475f2262d264826edf0f9397c9e08db (patch)
tree984ff9454147c800688f7902804b9b39a67ca227 /generic
parent9cb882ffefc858535b31f7da4b6e955d890ad7de (diff)
downloadtcl-b6b47d546475f2262d264826edf0f9397c9e08db.zip
tcl-b6b47d546475f2262d264826edf0f9397c9e08db.tar.gz
tcl-b6b47d546475f2262d264826edf0f9397c9e08db.tar.bz2
[Bug #3005233] fix for build on OpenBSD vax
Diffstat (limited to 'generic')
-rwxr-xr-xgeneric/tclStrToD.c8
1 files changed, 5 insertions, 3 deletions
diff --git a/generic/tclStrToD.c b/generic/tclStrToD.c
index 1ee4c74..d0a5345 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.45 2010/05/17 21:51:21 nijtmans Exp $
+ * RCS: @(#) $Id: tclStrToD.c,v 1.46 2010/05/21 12:43:29 nijtmans Exp $
*
*----------------------------------------------------------------------
*/
@@ -950,13 +950,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 &&
@@ -1137,12 +1138,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");