--- 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 */
