summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
-rw-r--r--ChangeLog8
-rw-r--r--doc/Hash.34
-rw-r--r--generic/tcl.decls4
-rw-r--r--generic/tcl.h4
-rw-r--r--generic/tclDecls.h6
-rw-r--r--generic/tclHash.c6
6 files changed, 16 insertions, 16 deletions
diff --git a/ChangeLog b/ChangeLog
index 0c6ad63..8c71580 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,9 +1,9 @@
2008-10-4 Jan Nijtmans <nijtmans@users.sf.net>
- * doc/RegConfig.3: CONSTified the configuration argument
- * generic/tcl.decls: of Tcl_RegisterConfig.
- * generic/tclConfig.c
- * generic/tclPkgConfig.c
+ * doc/Hash.3: CONSTified the typePtr argument
+ * generic/tcl.decls: of Tcl_InitCustomHashTable.
+ * generic/tcl.h
+ * generic/tclHash.c
* ChangeLog
* generic/tclDecls.h: regenerated
This change complies with TIP #27.
diff --git a/doc/Hash.3 b/doc/Hash.3
index 10d0d63..9ed9c1b 100644
--- a/doc/Hash.3
+++ b/doc/Hash.3
@@ -5,7 +5,7 @@
'\" See the file "license.terms" for information on usage and redistribution
'\" of this file, and for a DISCLAIMER OF ALL WARRANTIES.
'\"
-'\" RCS: @(#) $Id: Hash.3,v 1.27 2008/06/29 22:28:24 dkf Exp $
+'\" RCS: @(#) $Id: Hash.3,v 1.28 2008/10/04 11:51:25 nijtmans Exp $
'\"
.so man.macros
.TH Tcl_Hash 3 "" Tcl "Tcl Library Procedures"
@@ -49,7 +49,7 @@ Tcl_HashEntry *
const char *
\fBTcl_HashStats\fR(\fItablePtr\fR)
.SH ARGUMENTS
-.AS Tcl_HashKeyType *searchPtr out
+.AS "const Tcl_HashKeyType" *searchPtr out
.AP Tcl_HashTable *tablePtr in
Address of hash table structure (for all procedures but
\fBTcl_InitHashTable\fR, this must have been initialized by
diff --git a/generic/tcl.decls b/generic/tcl.decls
index adcd936..335d09a 100644
--- a/generic/tcl.decls
+++ b/generic/tcl.decls
@@ -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: tcl.decls,v 1.149 2008/10/04 11:34:19 nijtmans Exp $
+# RCS: @(#) $Id: tcl.decls,v 1.150 2008/10/04 11:51:25 nijtmans Exp $
library tcl
@@ -1503,7 +1503,7 @@ declare 422 generic {
}
declare 423 generic {
void Tcl_InitCustomHashTable(Tcl_HashTable *tablePtr, int keyType,
- Tcl_HashKeyType *typePtr)
+ CONST Tcl_HashKeyType *typePtr)
}
declare 424 generic {
void Tcl_InitObjHashTable(Tcl_HashTable *tablePtr)
diff --git a/generic/tcl.h b/generic/tcl.h
index d7b5ec7..90b9d75 100644
--- a/generic/tcl.h
+++ b/generic/tcl.h
@@ -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: tcl.h,v 1.272 2008/10/02 23:32:13 dkf Exp $
+ * RCS: @(#) $Id: tcl.h,v 1.273 2008/10/04 11:51:25 nijtmans Exp $
*/
#ifndef _TCL
@@ -1236,7 +1236,7 @@ struct Tcl_HashTable {
Tcl_HashEntry *(*findProc) (Tcl_HashTable *tablePtr, CONST char *key);
Tcl_HashEntry *(*createProc) (Tcl_HashTable *tablePtr, CONST char *key,
int *newPtr);
- Tcl_HashKeyType *typePtr; /* Type of the keys used in the
+ const Tcl_HashKeyType *typePtr; /* Type of the keys used in the
* Tcl_HashTable. */
};
diff --git a/generic/tclDecls.h b/generic/tclDecls.h
index 68c220c..bf3aa3f 100644
--- a/generic/tclDecls.h
+++ b/generic/tclDecls.h
@@ -8,7 +8,7 @@
* See the file "license.terms" for information on usage and redistribution
* of this file, and for a DISCLAIMER OF ALL WARRANTIES.
*
- * RCS: @(#) $Id: tclDecls.h,v 1.151 2008/10/04 11:34:20 nijtmans Exp $
+ * RCS: @(#) $Id: tclDecls.h,v 1.152 2008/10/04 11:51:25 nijtmans Exp $
*/
#ifndef _TCLDECLS
@@ -2572,7 +2572,7 @@ EXTERN Tcl_HashEntry * Tcl_CreateHashEntry (Tcl_HashTable * tablePtr,
#define Tcl_InitCustomHashTable_TCL_DECLARED
/* 423 */
EXTERN void Tcl_InitCustomHashTable (Tcl_HashTable * tablePtr,
- int keyType, Tcl_HashKeyType * typePtr);
+ int keyType, CONST Tcl_HashKeyType * typePtr);
#endif
#ifndef Tcl_InitObjHashTable_TCL_DECLARED
#define Tcl_InitObjHashTable_TCL_DECLARED
@@ -4139,7 +4139,7 @@ typedef struct TclStubs {
int (*tcl_UniCharCaseMatch) (CONST Tcl_UniChar * uniStr, CONST Tcl_UniChar * uniPattern, int nocase); /* 420 */
Tcl_HashEntry * (*tcl_FindHashEntry) (Tcl_HashTable * tablePtr, CONST char * key); /* 421 */
Tcl_HashEntry * (*tcl_CreateHashEntry) (Tcl_HashTable * tablePtr, CONST char * key, int * newPtr); /* 422 */
- void (*tcl_InitCustomHashTable) (Tcl_HashTable * tablePtr, int keyType, Tcl_HashKeyType * typePtr); /* 423 */
+ void (*tcl_InitCustomHashTable) (Tcl_HashTable * tablePtr, int keyType, CONST Tcl_HashKeyType * typePtr); /* 423 */
void (*tcl_InitObjHashTable) (Tcl_HashTable * tablePtr); /* 424 */
ClientData (*tcl_CommandTraceInfo) (Tcl_Interp * interp, CONST char * varName, int flags, Tcl_CommandTraceProc * procPtr, ClientData prevClientData); /* 425 */
int (*tcl_TraceCommand) (Tcl_Interp * interp, CONST char * varName, int flags, Tcl_CommandTraceProc * proc, ClientData clientData); /* 426 */
diff --git a/generic/tclHash.c b/generic/tclHash.c
index b4dd67d..bf1a87a 100644
--- a/generic/tclHash.c
+++ b/generic/tclHash.c
@@ -10,7 +10,7 @@
* See the file "license.terms" for information on usage and redistribution of
* this file, and for a DISCLAIMER OF ALL WARRANTIES.
*
- * RCS: @(#) $Id: tclHash.c,v 1.34 2008/04/27 22:21:30 dkf Exp $
+ * RCS: @(#) $Id: tclHash.c,v 1.35 2008/10/04 11:51:25 nijtmans Exp $
*/
#include "tclInt.h"
@@ -138,7 +138,7 @@ Tcl_InitHashTable(
* extended version by a macro.
*/
- Tcl_InitCustomHashTable(tablePtr, keyType, (Tcl_HashKeyType *) -1);
+ Tcl_InitCustomHashTable(tablePtr, keyType, (const Tcl_HashKeyType *) -1);
}
/*
@@ -169,7 +169,7 @@ Tcl_InitCustomHashTable(
* TCL_STRING_KEYS, TCL_ONE_WORD_KEYS,
* TCL_CUSTOM_TYPE_KEYS, TCL_CUSTOM_PTR_KEYS,
* or an integer >= 2. */
- Tcl_HashKeyType *typePtr) /* Pointer to structure which defines the
+ const Tcl_HashKeyType *typePtr) /* Pointer to structure which defines the
* behaviour of this table. */
{
#if (TCL_SMALL_HASH_TABLE != 4)