Attachment "tclStrToD.c-vax" to
ticket [3005233fff]
added by
buzzzzdeeee
2010-05-21 17:28:02.
Also attachment "tclStrToD.c-vax" to
ticket [3005196fff]
added by
buzzzzdeeee
2010-05-21 16:15:24.
--- tclStrToD.c.orig Thu Jul 16 14:50:54 2009
+++ tclStrToD.c Fri May 21 02:56:10 2010
@@ -947,13 +947,14 @@
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 &&
@@ -1133,12 +1134,13 @@
}
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 */
