diff options
| author | dkf <donal.k.fellows@manchester.ac.uk> | 2004-05-24 21:48:31 (GMT) |
|---|---|---|
| committer | dkf <donal.k.fellows@manchester.ac.uk> | 2004-05-24 21:48:31 (GMT) |
| commit | 8357e1bbb6ca9e656801de05df415698640e17bb (patch) | |
| tree | 80f2898455066a6fd5b28f87b69ab99fbe377e16 | |
| parent | 5d8ab9672cd4860dc923d1999563e0c97ff1cf13 (diff) | |
| download | tcl-8357e1bbb6ca9e656801de05df415698640e17bb.zip tcl-8357e1bbb6ca9e656801de05df415698640e17bb.tar.gz tcl-8357e1bbb6ca9e656801de05df415698640e17bb.tar.bz2 | |
Fixed [Bug 959193] which is apparently a word-size issue.
| -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 |