diff options
| author | jenglish <jenglish@flightlab.com> | 2007-09-04 22:03:17 (GMT) |
|---|---|---|
| committer | jenglish <jenglish@flightlab.com> | 2007-09-04 22:03:17 (GMT) |
| commit | 48f20c4d6b7363d2e2f9977927ef5644651886e4 (patch) | |
| tree | f987fbcfbdae8e340b3ae48aad05951e9e8bd696 | |
| parent | 8fcc7ec477b3f313240bc5bf8904bc94bb8a05f9 (diff) | |
| download | tk-48f20c4d6b7363d2e2f9977927ef5644651886e4.zip tk-48f20c4d6b7363d2e2f9977927ef5644651886e4.tar.gz tk-48f20c4d6b7363d2e2f9977927ef5644651886e4.tar.bz2 | |
Fix for [Bug 1788019] "tkTest.c compiler warning".
| -rw-r--r-- | ChangeLog | 4 | ||||
| -rw-r--r-- | generic/tkTest.c | 9 |
2 files changed, 9 insertions, 4 deletions
@@ -1,3 +1,7 @@ +2007-09-04 Joe English <jenglish@users.sourceforge.net> + + * generic/tkTest.c: Fix for [Bug 1788019] "tkTest.c compiler warning". + 2007-09-04 Don Porter <dgp@users.sourceforge.net> * unix/Makefile.in: It's unreliable to count on the release diff --git a/generic/tkTest.c b/generic/tkTest.c index b5be7a2..22b0482 100644 --- a/generic/tkTest.c +++ b/generic/tkTest.c @@ -13,7 +13,7 @@ * See the file "license.terms" for information on usage and redistribution of * this file, and for a DISCLAIMER OF ALL WARRANTIES. * - * RCS: @(#) $Id: tkTest.c,v 1.32 2007/05/14 20:58:27 dgp Exp $ + * RCS: @(#) $Id: tkTest.c,v 1.33 2007/09/04 22:03:18 jenglish Exp $ */ #include "tkInt.h" @@ -1970,7 +1970,8 @@ TestpropCmd( int result, actualFormat; unsigned long bytesAfter, length, value; Atom actualType, propName; - char *property, *p, *end; + unsigned char *property, *p; + char *end; Window w; char buffer[30]; @@ -1986,7 +1987,7 @@ TestpropCmd( result = XGetWindowProperty(Tk_Display(mainWin), w, propName, 0, 100000, False, AnyPropertyType, &actualType, &actualFormat, &length, - &bytesAfter, (unsigned char **) &property); + &bytesAfter, &property); if ((result == Success) && (actualType != None)) { if ((actualFormat == 8) && (actualType == XA_STRING)) { for (p = property; ((unsigned long)(p-property)) < length; p++) { @@ -1994,7 +1995,7 @@ TestpropCmd( *p = '\n'; } } - Tcl_SetResult(interp, property, TCL_VOLATILE); + Tcl_SetResult(interp, (/*!unsigned*/char*)property, TCL_VOLATILE); } else { for (p = property; length > 0; length--) { if (actualFormat == 32) { |