From 89616a36f9c3d31b0da35547101986b962641ed8 Mon Sep 17 00:00:00 2001
From: dkf <donal.k.fellows@manchester.ac.uk>
Date: Mon, 10 Nov 2003 21:02:35 +0000
Subject: Minor int vs. unsigned fixes to stop GCC warnings

---
 generic/tkText.c | 12 +++++++-----
 1 file 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--;
-- 
cgit v0.12