summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authordkf <donal.k.fellows@manchester.ac.uk>2005-09-14 22:51:09 (GMT)
committerdkf <donal.k.fellows@manchester.ac.uk>2005-09-14 22:51:09 (GMT)
commit998bc689837b9f81b076f05e0320a141c72e8540 (patch)
treeb7ad363d5bca8f2fe19cfa3919a4613f9a963616
parent61225a0b6324700e91036284f0e03e85e02aa22c (diff)
downloadtk-998bc689837b9f81b076f05e0320a141c72e8540.zip
tk-998bc689837b9f81b076f05e0320a141c72e8540.tar.gz
tk-998bc689837b9f81b076f05e0320a141c72e8540.tar.bz2
Get rid of constness warning
-rw-r--r--generic/tkOldConfig.c9
1 files changed, 6 insertions, 3 deletions
diff --git a/generic/tkOldConfig.c b/generic/tkOldConfig.c
index 87f00eb..345fa3d 100644
--- a/generic/tkOldConfig.c
+++ b/generic/tkOldConfig.c
@@ -11,7 +11,7 @@
* See the file "license.terms" for information on usage and redistribution of
* this file, and for a DISCLAIMER OF ALL WARRANTIES.
*
- * RCS: @(#) $Id: tkOldConfig.c,v 1.17 2005/09/14 22:47:00 dkf Exp $
+ * RCS: @(#) $Id: tkOldConfig.c,v 1.18 2005/09/14 22:51:09 dkf Exp $
*/
#include "tkPort.h"
@@ -1065,7 +1065,7 @@ GetCachedSpecs(
/* Value to cache a copy of; it is also used
* as a key into the cache. */
{
- Tk_ConfigSpec *specPtr, *cachedSpecs;
+ Tk_ConfigSpec *cachedSpecs;
Tcl_HashTable *specCacheTablePtr;
Tcl_HashEntry *entryPtr;
int isNew;
@@ -1094,13 +1094,16 @@ GetCachedSpecs(
&isNew);
if (isNew) {
unsigned int entrySpace = sizeof(Tk_ConfigSpec);
+ const Tk_ConfigSpec *staticSpecPtr;
+ Tk_ConfigSpec *specPtr;
/*
* OK, no working copy in this interpreter so copy. Need to work out
* how much space to allocate first.
*/
- for (specPtr=staticSpecs ; specPtr->type!=TK_CONFIG_END ; specPtr++) {
+ for (staticSpecPtr=staticSpecs; staticSpecPtr->type!=TK_CONFIG_END;
+ staticSpecPtr++) {
entrySpace += sizeof(Tk_ConfigSpec);
}