Tcl Source Code

Artifact a06ddd9d4af591c1fe3ab1701840fea2d18621ef:

Attachment "Crash.patch" to ticket [483309ffff] added by msofer 2001-11-19 19:27:24.

---

Index: generic/tclCompCmds.c
===================================================================
RCS file: /cvsroot/tcl/tcl/generic/tclCompCmds.c,v
retrieving revision 1.15
diff -u -r1.15 tclCompCmds.c
--- generic/tclCompCmds.c	2001/11/14 23:17:03	1.15
+++ generic/tclCompCmds.c	2001/11/19 12:21:51
@@ -1955,6 +1955,7 @@
 	    }
 	    valueTokenPtr = valueTokenPtr + (valueTokenPtr->numComponents + 1);
 	}
+	envPtr->maxStackDepth = depth;
 	TclEmitInstInt4(INST_LIST, numWords - 1, envPtr);
     }