Tcl Source Code

Artifact 6b8c28c0107e7fd89a300830fc8c619781f79b25:

Attachment "533364.patch0" to ticket [533364ffff] added by msofer 2002-03-22 19:59:10.

---

Index: generic/tclExecute.c
===================================================================
RCS file: /cvsroot/tcl/tcl/generic/tclExecute.c,v
retrieving revision 1.49
diff -u -r1.49 tclExecute.c
--- generic/tclExecute.c	28 Feb 2002 13:03:53 -0000	1.49
+++ generic/tclExecute.c	22 Mar 2002 12:52:59 -0000
@@ -1160,6 +1160,7 @@
 #ifdef TCL_COMPILE_STATS    
 	iPtr->stats.instructionCount[*pc]++;
 #endif
+	Tcl_ResetResult(interp);
         switch (*pc) {
 	case INST_DONE:
 	    /*