summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
-rw-r--r--generic/tkText.c12
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--;