diff options
| author | nijtmans <nijtmans> | 2010-08-14 20:58:30 (GMT) |
|---|---|---|
| committer | nijtmans <nijtmans> | 2010-08-14 20:58:30 (GMT) |
| commit | 57d60cf82bf56303dec39e6c75de99fa56e770f7 (patch) | |
| tree | 867226ac2c9dc2735e53f1b468c0e0936ae010fe /generic | |
| parent | bcc427ce10a994d6f852f8a4a3a47bd706317581 (diff) | |
| download | tcl-57d60cf82bf56303dec39e6c75de99fa56e770f7.zip tcl-57d60cf82bf56303dec39e6c75de99fa56e770f7.tar.gz tcl-57d60cf82bf56303dec39e6c75de99fa56e770f7.tar.bz2 | |
[Patch 3009403] Signature of Tcl_GetHashKey, Tcl_(Create|Find)HashEntry
Diffstat (limited to 'generic')
| -rw-r--r-- | generic/tcl.h | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/generic/tcl.h b/generic/tcl.h index 169f6f2..76e7c86 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.307 2010/06/16 14:49:51 nijtmans Exp $ + * RCS: @(#) $Id: tcl.h,v 1.308 2010/08/14 20:58:30 nijtmans Exp $ */ #ifndef _TCL @@ -2494,7 +2494,7 @@ EXTERN void Tcl_GetMemoryInfo(Tcl_DString *dsPtr); #define Tcl_GetHashValue(h) ((h)->clientData) #define Tcl_SetHashValue(h, value) ((h)->clientData = (ClientData) (value)) #define Tcl_GetHashKey(tablePtr, h) \ - ((char *) (((tablePtr)->keyType == TCL_ONE_WORD_KEYS || \ + ((void *) (((tablePtr)->keyType == TCL_ONE_WORD_KEYS || \ (tablePtr)->keyType == TCL_CUSTOM_PTR_KEYS) \ ? (h)->key.oneWordValue \ : (h)->key.string)) @@ -2506,10 +2506,10 @@ EXTERN void Tcl_GetMemoryInfo(Tcl_DString *dsPtr); #undef Tcl_FindHashEntry #define Tcl_FindHashEntry(tablePtr, key) \ - (*((tablePtr)->findProc))(tablePtr, key) + (*((tablePtr)->findProc))(tablePtr, (const char *)(key)) #undef Tcl_CreateHashEntry #define Tcl_CreateHashEntry(tablePtr, key, newPtr) \ - (*((tablePtr)->createProc))(tablePtr, key, newPtr) + (*((tablePtr)->createProc))(tablePtr, (const char *)(key), newPtr) /* *---------------------------------------------------------------------------- |