[Bug #3005233] fix for build on OpenBSD vax

2 files changed, 6 insertions, 3 deletions

diff --git a/ChangeLog b/ChangeLog
index b1c4759..a50dbab 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -3,6 +3,7 @@
 	* tools/installData.tcl   Make sure that copyDir only receives normalized
 	paths, otherwise it might result in a crash on CYGWIN. restyle according
 	to the Tcl style guide (http://www.tcl.tk/doc/styleGuide.pdf)
+	* 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 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");