Tcl Source Code: Artifact [e35fb5fe19]

Artifact e35fb5fe19e5843ec0f78c38bd1aa68b4eb1cbc9:

Attachment "tcl-8.5-debug-tweak.patch" to ticket [2912880fff] added by andreas_kupries 2009-12-12 02:56:54.

Index: generic/tclBasic.c
===================================================================
RCS file: /cvsroot/tcl/tcl/generic/tclBasic.c,v
retrieving revision 1.295.2.16
diff -w -u -r1.295.2.16 tclBasic.c
--- generic/tclBasic.c	10 Nov 2009 20:19:02 -0000	1.295.2.16
+++ generic/tclBasic.c	11 Dec 2009 18:56:50 -0000
@@ -3442,7 +3442,9 @@
 TclInterpReady(
     Tcl_Interp *interp)
 {
+#if !defined(TCL_NO_STACK_CHECK)
     int localInt; /* used for checking the stack */
+#endif
     register Interp *iPtr = (Interp *) interp;
 
     /*