Tcl Source Code

Artifact 073d9189ad8b92d8c56c55d6f3cc0095887943cd:

Attachment "trace.diff" to ticket [693564ffff] added by msofer 2003-02-27 00:05:42.

---

Index: generic/tclCmdMZ.c
===================================================================
RCS file: /cvsroot/tcl/tcl/generic/tclCmdMZ.c,v
retrieving revision 1.81
diff -u -r1.81 tclCmdMZ.c
--- generic/tclCmdMZ.c	18 Feb 2003 02:25:43 -0000	1.81
+++ generic/tclCmdMZ.c	26 Feb 2003 16:53:47 -0000
@@ -4074,6 +4074,11 @@
 	    /* Postpone deletion, until exec trace returns */
 	    tcmdPtr->flags = 0;
 	}
+	/* 
+	 * Decrement the refCount since the command which held our
+	 * reference (ever since we were created) has just gone away
+	 */
+	tcmdPtr->refCount--;
     }
     if ((--tcmdPtr->refCount) <= 0) {
         ckfree((char*)tcmdPtr);