summaryrefslogtreecommitdiffstats
path: root/generic
diff options
context:
space:
mode:
authorjan.nijtmans <nijtmans@users.sourceforge.net>2011-10-07 11:58:32 (GMT)
committerjan.nijtmans <nijtmans@users.sourceforge.net>2011-10-07 11:58:32 (GMT)
commitcc38079bd48dcdb4acf1549563a39e55a0aa8352 (patch)
tree705e0aa6c090cc08e9ac37ebd8392c2c8e9e5054 /generic
parent91b97473f6a540005246e11fca267d496c224d80 (diff)
downloadtcl-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')
-rw-r--r--generic/tclStringObj.c2
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); \
}