diff options
| author | nijtmans <nijtmans> | 2008-10-04 11:51:25 (GMT) |
|---|---|---|
| committer | nijtmans <nijtmans> | 2008-10-04 11:51:25 (GMT) |
| commit | 138d8b6e8ee88d292411bb993f613805dd975e07 (patch) | |
| tree | 20c8caa8bda293a8ccd809a66cfdb308bb3e7313 /generic/tclHash.c | |
| parent | cf24f0cc5f58ca91c49d46e631feeaf536162fb0 (diff) | |
| download | tcl-138d8b6e8ee88d292411bb993f613805dd975e07.zip tcl-138d8b6e8ee88d292411bb993f613805dd975e07.tar.gz tcl-138d8b6e8ee88d292411bb993f613805dd975e07.tar.bz2 | |
* 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.
Diffstat (limited to 'generic/tclHash.c')
| -rw-r--r-- | generic/tclHash.c | 6 |
1 files changed, 3 insertions, 3 deletions
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) |