From a5b75d5aa69542635409085c5cc34dcdf97eeecc Mon Sep 17 00:00:00 2001
From: Miguel Sofer <miguel.sofer@gmail.com>
Date: Wed, 28 Nov 2007 00:26:16 +0000
Subject: 	* generic/tclBasic.c: remove unneeded call in
 Tcl_CreateInterp, 	add comments

---
 ChangeLog          |  5 +++++
 generic/tclBasic.c | 14 ++++++--------
 2 files changed, 11 insertions(+), 8 deletions(-)

diff --git a/ChangeLog b/ChangeLog
index 5e54f99..bbba4b1 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,8 @@
+2007-11-27  Miguel Sofer  <msofer@users.sf.net>
+
+	* generic/tclBasic.c: remove unneeded call in Tcl_CreateInterp,
+	add comments
+
 2007-11-27  Don Porter	<dgp@users.sourceforge.net>
 
 	* win/tclWinSock.c:	Add mising encoding conversion of the [info
diff --git a/generic/tclBasic.c b/generic/tclBasic.c
index 0741813..ed2d2d1 100644
--- a/generic/tclBasic.c
+++ b/generic/tclBasic.c
@@ -14,7 +14,7 @@
  * See the file "license.terms" for information on usage and redistribution of
  * this file, and for a DISCLAIMER OF ALL WARRANTIES.
  *
- * RCS: @(#) $Id: tclBasic.c,v 1.285 2007/11/26 19:11:11 msofer Exp $
+ * RCS: @(#) $Id: tclBasic.c,v 1.286 2007/11/28 00:26:16 msofer Exp $
  */
 
 #include "tclInt.h"
@@ -609,6 +609,11 @@ Tcl_CreateInterp(void)
     iPtr->pendingObjDataPtr = NULL;
     iPtr->asyncReadyPtr = TclGetAsyncReadyPtr();
 
+    /*
+     * Insure that the stack checking mechanism for this interp is
+     * initialized. 
+     */
+    
     GetCStackParams(iPtr);
 
     /*
@@ -831,13 +836,6 @@ Tcl_CreateInterp(void)
 	Tcl_Panic(Tcl_GetString(Tcl_GetObjResult(interp)));
     }
 
-    /*
-     * Insure that the stack checking mechanism for this interp is
-     * initialized. 
-     */
-    
-    TclInterpReady(interp);
-    
     return interp;
 }
 
-- 
cgit v0.12