diff options
| -rw-r--r-- | ChangeLog | 5 | ||||
| -rw-r--r-- | generic/tclInterp.c | 4 |
2 files changed, 7 insertions, 2 deletions
@@ -1,3 +1,8 @@ +2004-05-24 Donal K. Fellows <donal.k.fellows@man.ac.uk> + + * generic/tclInterp.c (TclInitLimitSupport): Made limits work on + platforms where sizeof(void*)!=sizeof(int). [Bug 959193] + 2004-05-24 Miguel Sofer <msofer@users.sf.net> * 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 |