diff options
| author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2011-10-07 11:58:32 (GMT) |
|---|---|---|
| committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2011-10-07 11:58:32 (GMT) |
| commit | cc38079bd48dcdb4acf1549563a39e55a0aa8352 (patch) | |
| tree | 705e0aa6c090cc08e9ac37ebd8392c2c8e9e5054 /generic/tclStringObj.c | |
| parent | 91b97473f6a540005246e11fca267d496c224d80 (diff) | |
| download | tcl-cc38079bd48dcdb4acf1549563a39e55a0aa8352.zip tcl-cc38079bd48dcdb4acf1549563a39e55a0aa8352.tar.gz tcl-cc38079bd48dcdb4acf1549563a39e55a0aa8352.tar.bz2 | |
Fix gcc warnings (discovered with latest mingw, based on gcc 4.6.1)
Diffstat (limited to 'generic/tclStringObj.c')
| -rw-r--r-- | generic/tclStringObj.c | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/generic/tclStringObj.c b/generic/tclStringObj.c index 6a9d832..b5b3674 100644 --- a/generic/tclStringObj.c +++ b/generic/tclStringObj.c @@ -114,7 +114,7 @@ typedef struct String { ? (sizeof(String) - sizeof(Tcl_UniChar) + (ualloc)) \ : sizeof(String))) #define stringCheckLimits(numChars) \ - if ((numChars) < 0 || (numChars) > STRING_MAXCHARS) { \ + if ((unsigned)(numChars) > (unsigned)(STRING_MAXCHARS)) { \ Tcl_Panic("max length for a Tcl unicode value (%d chars) exceeded", \ STRING_MAXCHARS); \ } |