diff options
| author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2013-08-14 14:15:36 (GMT) |
|---|---|---|
| committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2013-08-14 14:15:36 (GMT) |
| commit | cb022ef5bd73c2dcf81758815c2b7812e33cb7f5 (patch) | |
| tree | 1f5f6284a57a9559932e35d072bc22f796b11927 /generic/tclStrToD.c | |
| parent | 18859d2c2c1b21c3661e1137c93a9ad27ddf10b7 (diff) | |
| download | tcl-cb022ef5bd73c2dcf81758815c2b7812e33cb7f5.zip tcl-cb022ef5bd73c2dcf81758815c2b7812e33cb7f5.tar.gz tcl-cb022ef5bd73c2dcf81758815c2b7812e33cb7f5.tar.bz2 | |
restore all #ifdef TCL_WIDE_INT_IS_LONG, which were accidently removed in [19ff9b95e1]
Diffstat (limited to 'generic/tclStrToD.c')
| -rwxr-xr-x | generic/tclStrToD.c | 4 |
1 files changed, 4 insertions, 0 deletions
diff --git a/generic/tclStrToD.c b/generic/tclStrToD.c index 388fff6..30a72ba 100755 --- a/generic/tclStrToD.c +++ b/generic/tclStrToD.c @@ -1172,6 +1172,7 @@ TclParseNumber( if (!octalSignificandOverflow) { if (octalSignificandWide > (Tcl_WideUInt)(((~(unsigned long)0) >> 1) + signum)) { +#ifndef TCL_WIDE_INT_IS_LONG if (octalSignificandWide <= (MOST_BITS + signum)) { objPtr->typePtr = &tclWideIntType; if (signum) { @@ -1183,6 +1184,7 @@ TclParseNumber( } break; } +#endif TclBNInitBignumFromWideUInt(&octalSignificandBig, octalSignificandWide); octalSignificandOverflow = 1; @@ -1217,6 +1219,7 @@ TclParseNumber( if (!significandOverflow) { if (significandWide > (Tcl_WideUInt)(((~(unsigned long)0) >> 1) + signum)) { +#ifndef TCL_WIDE_INT_IS_LONG if (significandWide <= MOST_BITS+signum) { objPtr->typePtr = &tclWideIntType; if (signum) { @@ -1228,6 +1231,7 @@ TclParseNumber( } break; } +#endif TclBNInitBignumFromWideUInt(&significandBig, significandWide); significandOverflow = 1; |