summaryrefslogtreecommitdiffstats
path: root/generic
diff options
context:
space:
mode:
Diffstat (limited to 'generic')
-rw-r--r--generic/tcl.decls4
-rw-r--r--generic/tcl.h4
-rw-r--r--generic/tclDecls.h6
-rw-r--r--generic/tclHash.c6
4 files changed, 10 insertions, 10 deletions
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)