diff options
| author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2019-09-05 15:14:29 (GMT) |
|---|---|---|
| committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2019-09-05 15:14:29 (GMT) |
| commit | 96c82a32e19afd4581f3aa21da39c8c6aa90bd7c (patch) | |
| tree | 31455945857d2de92c86342b6a07d812a83f4350 /generic/tclHash.c | |
| parent | 2d7fb3bc20951567f5cd26584fb146ea5c271cc2 (diff) | |
| parent | 26c1cd495a1ba8397db198e13aafe1a29287e6d0 (diff) | |
| download | tcl-96c82a32e19afd4581f3aa21da39c8c6aa90bd7c.zip tcl-96c82a32e19afd4581f3aa21da39c8c6aa90bd7c.tar.gz tcl-96c82a32e19afd4581f3aa21da39c8c6aa90bd7c.tar.bz2 | |
Mark more function paramaters as unused. Now Tcl compiles fully (on UNIX and Windows) without -Wunused-parameters warnings
Diffstat (limited to 'generic/tclHash.c')
| -rw-r--r-- | generic/tclHash.c | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/generic/tclHash.c b/generic/tclHash.c index 7e1b3e0..10e3027 100644 --- a/generic/tclHash.c +++ b/generic/tclHash.c @@ -770,14 +770,14 @@ HashArrayKey( void *keyPtr) /* Key from which to compute hash value. */ { const int *array = (const int *) keyPtr; - unsigned int result; + TCL_HASH_TYPE result; int count; for (result = 0, count = tablePtr->keyType; count > 0; count--, array++) { result += *array; } - return (TCL_HASH_TYPE) result; + return result; } /* @@ -868,7 +868,7 @@ HashStringKey( void *keyPtr) /* Key from which to compute hash value. */ { const char *string = (const char *)keyPtr; - unsigned int result; + TCL_HASH_TYPE result; char c; (void)tablePtr; @@ -909,7 +909,7 @@ HashStringKey( result += (result << 3) + UCHAR(c); } } - return (TCL_HASH_TYPE) result; + return result; } /* |