diff options
| author | rmax <rmax> | 2002-08-13 16:20:49 (GMT) |
|---|---|---|
| committer | rmax <rmax> | 2002-08-13 16:20:49 (GMT) |
| commit | bc4e5372013f21ac88b33076551c7b876a1f849b (patch) | |
| tree | 4aedb68777dd619d2d9362d483e881d83f530305 | |
| parent | 1dc9c58c0f6a43d1a6bc33ae285f29e0256e5e28 (diff) | |
| download | tk-bc4e5372013f21ac88b33076551c7b876a1f849b.zip tk-bc4e5372013f21ac88b33076551c7b876a1f849b.tar.gz tk-bc4e5372013f21ac88b33076551c7b876a1f849b.tar.bz2 | |
* unix/tkUnixSend.c (Tk_SetAppName): Fixed a compiler warning.
| -rw-r--r-- | ChangeLog | 4 | ||||
| -rw-r--r-- | unix/tkUnixSend.c | 8 |
2 files changed, 7 insertions, 5 deletions
@@ -1,3 +1,7 @@ +2002-08-13 Reinhard Max <max@suse.de> + + * unix/tkUnixSend.c (Tk_SetAppName): Fixed a compiler warning. + 2002-08-12 Donal K. Fellows <fellowsd@cs.man.ac.uk> * library/demos/image2.tcl: Tweaked the behaviour of the directory diff --git a/unix/tkUnixSend.c b/unix/tkUnixSend.c index 25f712f..4e115c8 100644 --- a/unix/tkUnixSend.c +++ b/unix/tkUnixSend.c @@ -12,7 +12,7 @@ * See the file "license.terms" for information on usage and redistribution * of this file, and for a DISCLAIMER OF ALL WARRANTIES. * - * RCS: @(#) $Id: tkUnixSend.c,v 1.10 2002/08/05 04:30:41 dgp Exp $ + * RCS: @(#) $Id: tkUnixSend.c,v 1.11 2002/08/13 16:20:49 rmax Exp $ */ #include "tkPort.h" @@ -816,17 +816,15 @@ Tk_SetAppName(tkwin, name) * set" compiler warnings. */ for (i = 1; ; i++) { if (i > 1) { - char *copy; if (i == 2) { Tcl_DStringInit(&dString); Tcl_DStringAppend(&dString, name, -1); Tcl_DStringAppend(&dString, " #", 2); offset = Tcl_DStringLength(&dString); Tcl_DStringSetLength(&dString, offset+TCL_INTEGER_SPACE); - copy = Tcl_DStringValue(&dString); - actualName = copy; + actualName = Tcl_DStringValue(&dString); } - sprintf(copy + offset, "%d", i); + sprintf(Tcl_DStringValue(&dString) + offset, "%d", i); } w = RegFindName(regPtr, actualName); if (w == None) { |