diff options
author | nijtmans <nijtmans@noemail.net> | 2010-12-03 09:19:39 (GMT) |
---|---|---|
committer | nijtmans <nijtmans@noemail.net> | 2010-12-03 09:19:39 (GMT) |
commit | aa8b4bf0b0bba3e1cd531dc69cb6bce06a6eae95 (patch) | |
tree | 84f06ceb25a53b5aff218927cade3aa04bcfc284 /generic/tclUtil.c | |
parent | e509bcd88a54480d43946e51222da7ced0e6c20f (diff) | |
download | tcl-aa8b4bf0b0bba3e1cd531dc69cb6bce06a6eae95.zip tcl-aa8b4bf0b0bba3e1cd531dc69cb6bce06a6eae95.tar.gz tcl-aa8b4bf0b0bba3e1cd531dc69cb6bce06a6eae95.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.
FossilOrigin-Name: d1cc6495565ed231191402b44392ff5e35471369
Diffstat (limited to 'generic/tclUtil.c')
-rw-r--r-- | generic/tclUtil.c | 4 |
1 files changed, 2 insertions, 2 deletions
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. |