summaryrefslogtreecommitdiffstats
path: root/generic
diff options
context:
space:
mode:
authordkf <donal.k.fellows@manchester.ac.uk>2005-09-14 22:47:00 (GMT)
committerdkf <donal.k.fellows@manchester.ac.uk>2005-09-14 22:47:00 (GMT)
commit61225a0b6324700e91036284f0e03e85e02aa22c (patch)
treece7f82203cc8334710492b70f2ddb43ca261861e /generic
parent4e66248e1c2c8c3b0f08c5e2d2cf85bc8182b94f (diff)
downloadtk-61225a0b6324700e91036284f0e03e85e02aa22c.zip
tk-61225a0b6324700e91036284f0e03e85e02aa22c.tar.gz
tk-61225a0b6324700e91036284f0e03e85e02aa22c.tar.bz2
Oops, varnames were not completely regularized.
Diffstat (limited to 'generic')
-rw-r--r--generic/tkOldConfig.c21
1 files changed, 10 insertions, 11 deletions
diff --git a/generic/tkOldConfig.c b/generic/tkOldConfig.c
index 509cef6..87f00eb 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.16 2005/09/14 22:43:30 dkf Exp $
+ * RCS: @(#) $Id: tkOldConfig.c,v 1.17 2005/09/14 22:47:00 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 *specsPtr, *cachedSpecPtr;
+ Tk_ConfigSpec *specPtr, *cachedSpecs;
Tcl_HashTable *specCacheTablePtr;
Tcl_HashEntry *entryPtr;
int isNew;
@@ -1090,7 +1090,7 @@ GetCachedSpecs(
* which will have the writable specs as its associated value.
*/
- entryPtr = Tcl_CreateHashEntry(specCacheTablePtr, (char *) staticTable,
+ entryPtr = Tcl_CreateHashEntry(specCacheTablePtr, (char *) staticSpecs,
&isNew);
if (isNew) {
unsigned int entrySpace = sizeof(Tk_ConfigSpec);
@@ -1100,8 +1100,7 @@ GetCachedSpecs(
* how much space to allocate first.
*/
- for (specPtr=staticTable ; specPtr->type != TK_CONFIG_END ;
- specPtr++) {
+ for (specPtr=staticSpecs ; specPtr->type!=TK_CONFIG_END ; specPtr++) {
entrySpace += sizeof(Tk_ConfigSpec);
}
@@ -1110,9 +1109,9 @@ GetCachedSpecs(
* from the master copy.
*/
- cachedSpecPtr = (Tk_ConfigSpec *) ckalloc(entrySpace);
- memcpy((void *) cachedSpecPtr, (void *) staticSpecs, entrySpace);
- Tcl_SetHashValue(entryPtr, (ClientData) cachedSpecPtr);
+ cachedSpecs = (Tk_ConfigSpec *) ckalloc(entrySpace);
+ memcpy((void *) cachedSpecs, (void *) staticSpecs, entrySpace);
+ Tcl_SetHashValue(entryPtr, (ClientData) cachedSpecs);
/*
* Finally, go through and replace database names, database classes
@@ -1120,7 +1119,7 @@ GetCachedSpecs(
* per-thread.
*/
- for (specPtr=cachedSpecPtr; specPtr->type!=TK_CONFIG_END; specPtr++) {
+ for (specPtr=cachedSpecs; specPtr->type!=TK_CONFIG_END; specPtr++) {
if (specPtr->argvName != NULL) {
if (specPtr->dbName != NULL) {
specPtr->dbName = Tk_GetUid(specPtr->dbName);
@@ -1135,10 +1134,10 @@ GetCachedSpecs(
specPtr->specFlags &= ~TK_CONFIG_OPTION_SPECIFIED;
}
} else {
- cachedSpecPtr = (Tk_ConfigSpec *) Tcl_GetHashValue(entryPtr);
+ cachedSpecs = (Tk_ConfigSpec *) Tcl_GetHashValue(entryPtr);
}
- return cachedSpecPtr;
+ return cachedSpecs;
}
/*