Tcl Source Code

Artifact [17398b6c24]
Login

Artifact 17398b6c24f2041466d6a846dfeb99d02a9fd951:

Attachment "959193.patch" to ticket [959193ffff] added by dgp 2004-05-24 23:50:15.
Index: generic/tclInterp.c
===================================================================
RCS file: /cvsroot/tcl/tcl/generic/tclInterp.c,v
retrieving revision 1.32
diff -u -r1.32 tclInterp.c
--- generic/tclInterp.c	20 May 2004 13:04:11 -0000	1.32
+++ generic/tclInterp.c	24 May 2004 16:46:20 -0000
@@ -3176,7 +3176,7 @@
     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