From ecebf970f39a0b05f31b112c01c6d5b41434eed9 Mon Sep 17 00:00:00 2001 From: dkf Date: Sat, 15 Nov 2003 23:42:42 +0000 Subject: Stop VC++ 5.2 warning. [Bug 842511] --- ChangeLog | 9 +++++++++ generic/tclTest.c | 4 ++-- 2 files changed, 11 insertions(+), 2 deletions(-) diff --git a/ChangeLog b/ChangeLog index 67e8750..201daf3 100644 --- a/ChangeLog +++ b/ChangeLog @@ -1,3 +1,12 @@ +2003-11-15 Donal K. Fellows + + * generic/tclTest.c (TestHashSystemHashCmd): Removed 'const' + modifier from hash type structure; it should be const and the hash + code assumes it behaves like const, but that's not how the API is + defined. Like this, we are following in the same footsteps as + Tcl_RegisterObjType() which has the same conditions on its + argument. Stops VC++5.2 warning. [Bug 842511] + 2003-11-14 Donal K. Fellows * generic/tclHash.c (Tcl_DeleteHashTable,Tcl_HashStats,RebuildTable): diff --git a/generic/tclTest.c b/generic/tclTest.c index bfc0481..794f7e3 100644 --- a/generic/tclTest.c +++ b/generic/tclTest.c @@ -14,7 +14,7 @@ * See the file "license.terms" for information on usage and redistribution * of this file, and for a DISCLAIMER OF ALL WARRANTIES. * - * RCS: @(#) $Id: tclTest.c,v 1.71 2003/11/14 23:21:02 dkf Exp $ + * RCS: @(#) $Id: tclTest.c,v 1.72 2003/11/15 23:42:42 dkf Exp $ */ #define TCL_TEST @@ -6466,7 +6466,7 @@ TestHashSystemHashCmd(clientData, interp, objc, objv) int objc; Tcl_Obj *CONST objv[]; { - static const Tcl_HashKeyType hkType = { + static Tcl_HashKeyType hkType = { TCL_HASH_KEY_TYPE_VERSION, TCL_HASH_KEY_SYSTEM_HASH, NULL, NULL, NULL, NULL }; -- cgit v0.12