From 8357e1bbb6ca9e656801de05df415698640e17bb Mon Sep 17 00:00:00 2001 From: dkf Date: Mon, 24 May 2004 21:48:31 +0000 Subject: Fixed [Bug 959193] which is apparently a word-size issue. --- ChangeLog | 5 +++++ generic/tclInterp.c | 4 ++-- 2 files changed, 7 insertions(+), 2 deletions(-) diff --git a/ChangeLog b/ChangeLog index b0cbb46..b7530ba 100644 --- a/ChangeLog +++ b/ChangeLog @@ -1,3 +1,8 @@ +2004-05-24 Donal K. Fellows + + * generic/tclInterp.c (TclInitLimitSupport): Made limits work on + platforms where sizeof(void*)!=sizeof(int). [Bug 959193] + 2004-05-24 Miguel Sofer * doc/set.n: accurate description of name resolution process, diff --git a/generic/tclInterp.c b/generic/tclInterp.c index 0354f5e..4c673a0 100644 --- a/generic/tclInterp.c +++ b/generic/tclInterp.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: tclInterp.c,v 1.32 2004/05/20 13:04:11 dkf Exp $ + * RCS: @(#) $Id: tclInterp.c,v 1.33 2004/05/24 21:48:32 dkf Exp $ */ #include "tclInt.h" @@ -3176,7 +3176,7 @@ TclInitLimitSupport(interp) iPtr->limit.timeHandlers = NULL; iPtr->limit.timeGranularity = 10; Tcl_InitHashTable(&iPtr->limit.callbacks, - sizeof(struct ScriptLimitCallbackKey)/sizeof(ClientData)); + sizeof(struct ScriptLimitCallbackKey)/sizeof(int)); } static void -- cgit v0.12