diff options
| author | nijtmans <nijtmans@noemail.net> | 2010-05-21 12:43:29 (GMT) |
|---|---|---|
| committer | nijtmans <nijtmans@noemail.net> | 2010-05-21 12:43:29 (GMT) |
| commit | 13ac9f50698649f4e10c4399a8add91ddbdd15f1 (patch) | |
| tree | 984ff9454147c800688f7902804b9b39a67ca227 /generic/tclStrToD.c | |
| parent | e07911123ea9064364312fe8e03db857e3f7c02b (diff) | |
| download | tcl-13ac9f50698649f4e10c4399a8add91ddbdd15f1.zip tcl-13ac9f50698649f4e10c4399a8add91ddbdd15f1.tar.gz tcl-13ac9f50698649f4e10c4399a8add91ddbdd15f1.tar.bz2 | |
[Bug #3005233] fix for build on OpenBSD vax
FossilOrigin-Name: 00d3292dea51664e304aaa624285bc179328e3b7
Diffstat (limited to 'generic/tclStrToD.c')
| -rwxr-xr-x | generic/tclStrToD.c | 8 |
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"); |