diff options
| author | jenglish@flightlab.com <jenglish> | 2007-09-04 22:03:17 (GMT) |
|---|---|---|
| committer | jenglish@flightlab.com <jenglish> | 2007-09-04 22:03:17 (GMT) |
| commit | 62231371d7ff69bdc89c4379fcd5a33ddfd44837 (patch) | |
| tree | f987fbcfbdae8e340b3ae48aad05951e9e8bd696 /generic | |
| parent | 456562c8507aaa0ce4807174814b603ac13353c6 (diff) | |
| download | tk-62231371d7ff69bdc89c4379fcd5a33ddfd44837.zip tk-62231371d7ff69bdc89c4379fcd5a33ddfd44837.tar.gz tk-62231371d7ff69bdc89c4379fcd5a33ddfd44837.tar.bz2 | |
Fix for [Bug 1788019] "tkTest.c compiler warning".
Diffstat (limited to 'generic')
| -rw-r--r-- | generic/tkTest.c | 9 |
1 files changed, 5 insertions, 4 deletions
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) { |