diff options
| author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2021-01-08 09:37:25 (GMT) |
|---|---|---|
| committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2021-01-08 09:37:25 (GMT) |
| commit | f09dcac7855bb4d75a3ca3b44b9d5ce188260bff (patch) | |
| tree | 2f902d8a9af2864c706770cb5609a8a956076a4c /generic/tclStrToD.c | |
| parent | 6b7dec8d6a72719ff9684fa6c71ec40b2637d8ba (diff) | |
| download | tcl-f09dcac7855bb4d75a3ca3b44b9d5ce188260bff.zip tcl-f09dcac7855bb4d75a3ca3b44b9d5ce188260bff.tar.gz tcl-f09dcac7855bb4d75a3ca3b44b9d5ce188260bff.tar.bz2 | |
Omit -Wdeclaration-after-statement from CFLAGS: No longer needed since we stopped support for MSVC 6++
Change Tcl_WideInt -> long long in various places: Tcl_WideInt could be a 128-bit type, we don't want that everywhere.
Diffstat (limited to 'generic/tclStrToD.c')
| -rw-r--r-- | generic/tclStrToD.c | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/generic/tclStrToD.c b/generic/tclStrToD.c index b5c0ca2..7c1d779 100644 --- a/generic/tclStrToD.c +++ b/generic/tclStrToD.c @@ -5251,21 +5251,21 @@ TclFormatNaN( #else union { double dv; - Tcl_WideUInt iv; + unsigned long long iv; } bitwhack; bitwhack.dv = value; if (n770_fp) { bitwhack.iv = Nokia770Twiddle(bitwhack.iv); } - if (bitwhack.iv & ((Tcl_WideUInt) 1 << 63)) { - bitwhack.iv &= ~ ((Tcl_WideUInt) 1 << 63); + if (bitwhack.iv & (1ULL << 63)) { + bitwhack.iv &= ~ (1ULL << 63); *buffer++ = '-'; } *buffer++ = 'N'; *buffer++ = 'a'; *buffer++ = 'N'; - bitwhack.iv &= (((Tcl_WideUInt) 1) << 51) - 1; + bitwhack.iv &= ((1ULL) << 51) - 1; if (bitwhack.iv != 0) { sprintf(buffer, "(%" TCL_LL_MODIFIER "x)", bitwhack.iv); } else { |