diff options
| author | donal.k.fellows@manchester.ac.uk <dkf> | 2008-04-27 22:21:26 (GMT) |
|---|---|---|
| committer | donal.k.fellows@manchester.ac.uk <dkf> | 2008-04-27 22:21:26 (GMT) |
| commit | c6aa7ace5f2063d3aa73342ff15dada85b8457a3 (patch) | |
| tree | 4e7b1367d8eb030241db8325caa541ce387b7313 /generic/tclTestObj.c | |
| parent | bc3de57427d457dbb37e9b4ecb1d9d6615b96b56 (diff) | |
| download | tcl-c6aa7ace5f2063d3aa73342ff15dada85b8457a3.zip tcl-c6aa7ace5f2063d3aa73342ff15dada85b8457a3.tar.gz tcl-c6aa7ace5f2063d3aa73342ff15dada85b8457a3.tar.bz2 | |
Get rid of pre-C89-isms (esp. CONST vs const).
Diffstat (limited to 'generic/tclTestObj.c')
| -rw-r--r-- | generic/tclTestObj.c | 10 |
1 files changed, 5 insertions, 5 deletions
diff --git a/generic/tclTestObj.c b/generic/tclTestObj.c index 3fb9794..2aca3ca 100644 --- a/generic/tclTestObj.c +++ b/generic/tclTestObj.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: tclTestObj.c,v 1.21 2007/12/13 15:23:20 dgp Exp $ + * RCS: @(#) $Id: tclTestObj.c,v 1.22 2008/04/27 22:21:32 dkf Exp $ */ #include "tclInt.h" @@ -501,7 +501,7 @@ TestindexobjCmd( * Keep this structure declaration in sync with tclIndexObj.c */ struct IndexRep { - VOID *tablePtr; /* Pointer to the table of strings */ + void *tablePtr; /* Pointer to the table of strings */ int offset; /* Offset between table entries */ int index; /* Selected index into table. */ }; @@ -555,10 +555,10 @@ TestindexobjCmd( * object, clear out the object's cached state. */ - if ( objv[3]->typePtr != NULL - && !strcmp( "index", objv[3]->typePtr->name ) ) { + if (objv[3]->typePtr != NULL + && !strcmp("index", objv[3]->typePtr->name)) { indexRep = (struct IndexRep *) objv[3]->internalRep.otherValuePtr; - if (indexRep->tablePtr == (VOID *) argv) { + if (indexRep->tablePtr == (void *) argv) { objv[3]->typePtr->freeIntRepProc(objv[3]); objv[3]->typePtr = NULL; } |