diff options
| author | nijtmans <nijtmans> | 2010-12-03 09:19:39 (GMT) |
|---|---|---|
| committer | nijtmans <nijtmans> | 2010-12-03 09:19:39 (GMT) |
| commit | ea3383df4de871af4befa8a8c0183d7f4b4d1cbd (patch) | |
| tree | 84f06ceb25a53b5aff218927cade3aa04bcfc284 /generic | |
| parent | 6c7ac341739cf01e0a6a385687b55339aa48e1eb (diff) | |
| download | tcl-ea3383df4de871af4befa8a8c0183d7f4b4d1cbd.zip tcl-ea3383df4de871af4befa8a8c0183d7f4b4d1cbd.tar.gz tcl-ea3383df4de871af4befa8a8c0183d7f4b4d1cbd.tar.bz2 | |
silence gcc warning when using -Wwrite-strings
silence gcc warning for non-IEEE platforms
[Patch #3116490] cross-compile Tcl mingw32 on unix.
This makes it possible to cross-compile Tcl/Tk for Windows (either 32-bit or 64-bit) out-of-the-box on UNIX, using mingw-w64 build tools.
Diffstat (limited to 'generic')
| -rwxr-xr-x | generic/tclStrToD.c | 9 | ||||
| -rw-r--r-- | generic/tclUtil.c | 4 |
2 files changed, 9 insertions, 4 deletions
diff --git a/generic/tclStrToD.c b/generic/tclStrToD.c index 8626962..70de0e0 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.50 2010/12/01 16:28:00 kennykb Exp $ + * RCS: @(#) $Id: tclStrToD.c,v 1.51 2010/12/03 09:19:40 nijtmans Exp $ * *---------------------------------------------------------------------- */ @@ -285,7 +285,9 @@ static double MakeHighPrecisionDouble(int signum, static double MakeLowPrecisionDouble(int signum, Tcl_WideUInt significand, int nSigDigs, int exponent); +#ifdef IEEE_FLOATING_POINT static double MakeNaN(int signum, Tcl_WideUInt tag); +#endif static double RefineApproximation(double approx, mp_int *exactSignificand, int exponent); static void MulPow5(mp_int*, unsigned, mp_int*); @@ -346,7 +348,9 @@ static double BignumToBiasedFrExp(const mp_int *big, int *machexp); static double Pow10TimesFrExp(int exponent, double fraction, int *machexp); static double SafeLdExp(double fraction, int exponent); +#ifdef IEEE_FLOATING_POINT static Tcl_WideUInt Nokia770Twiddle(Tcl_WideUInt w); +#endif /* *---------------------------------------------------------------------- @@ -4921,13 +4925,14 @@ TclFormatNaN( * *---------------------------------------------------------------------- */ - +#ifdef IEEE_FLOATING_POINT static Tcl_WideUInt Nokia770Twiddle( Tcl_WideUInt w) /* Number to transpose */ { return (((w >> 32) & 0xffffffff) | (w << 32)); } +#endif /* *---------------------------------------------------------------------- diff --git a/generic/tclUtil.c b/generic/tclUtil.c index fd16f88..3fc1a35 100644 --- a/generic/tclUtil.c +++ b/generic/tclUtil.c @@ -11,7 +11,7 @@ * See the file "license.terms" for information on usage and redistribution of * this file, and for a DISCLAIMER OF ALL WARRANTIES. * - * RCS: @(#) $Id: tclUtil.c,v 1.121 2010/11/30 18:17:26 hobbs Exp $ + * RCS: @(#) $Id: tclUtil.c,v 1.122 2010/12/03 09:19:40 nijtmans Exp $ */ #include "tclInt.h" @@ -2527,7 +2527,7 @@ TclFormatInt(buffer, n) long intVal; int i; int numFormatted, j; - char *digits = "0123456789"; + const char *digits = "0123456789"; /* * Check first whether "n" is zero. |