Tcl Source Code

Artifact [9d0899ae5e]
Login

Artifact 9d0899ae5e0e0574b06df7aa6c6647b4521bfde2:

Attachment "DIFF.UMR" to ticket [589863ffff] added by msofer 2002-08-06 23:45:28.
Index: generic/tclCmdMZ.c
===================================================================
RCS file: /cvsroot/tcl/tcl/generic/tclCmdMZ.c,v
retrieving revision 1.74
diff -u -r1.74 tclCmdMZ.c
--- generic/tclCmdMZ.c	5 Aug 2002 03:24:40 -0000	1.74
+++ generic/tclCmdMZ.c	6 Aug 2002 14:37:20 -0000
@@ -3386,6 +3386,8 @@
 			(sizeof(TraceCommandInfo) - sizeof(tcmdPtr->command)
 				+ length + 1));
 		tcmdPtr->flags = flags;
+		tcmdPtr->stepTrace = NULL;
+		tcmdPtr->startLevel = 0;
 		tcmdPtr->length = length;
 		flags |= TCL_TRACE_DELETE;
 		strcpy(tcmdPtr->command, command);