diff options
| -rw-r--r-- | generic/tkText.c | 12 |
1 files changed, 7 insertions, 5 deletions
diff --git a/generic/tkText.c b/generic/tkText.c index 5b9c515..ed826db 100644 --- a/generic/tkText.c +++ b/generic/tkText.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: tkText.c,v 1.40 2003/11/07 15:36:26 vincentdarley Exp $ + * RCS: @(#) $Id: tkText.c,v 1.41 2003/11/10 21:02:35 dkf Exp $ */ #include "default.h" @@ -688,8 +688,9 @@ TextWidgetObjCmd(clientData, interp, objc, objv) for (i = 2; i < objc-2; i++) { int value; - int length; - CONST char *option = Tcl_GetStringFromObj(objv[i],&length); + unsigned length; + CONST char *option = Tcl_GetStringFromObj(objv[i], + (int *)&length); char c; if (length < 2 || option[0] != '-') { badOption: @@ -1051,7 +1052,7 @@ TextWidgetObjCmd(clientData, interp, objc, objv) if (objc > 3) { name = Tcl_GetStringFromObj(objv[i], &length); if (length > 1 && name[0] == '-') { - if (strncmp("-displaychars", name, length) == 0) { + if (strncmp("-displaychars", name, (unsigned)length)==0) { i++; visible = 1; name = Tcl_GetStringFromObj(objv[i], &length); @@ -4336,7 +4337,8 @@ SearchCore(interp, searchSpecPtr, patObj) p = startOfLine + lastOffset -1; } while (p >= startOfLine + firstOffset) { - if (p[0] == c && !strncmp(p, pattern, matchLength)) { + if (p[0] == c && !strncmp(p, pattern, + (unsigned)matchLength)) { goto backwardsMatch; } p--; |