summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
-rw-r--r--ChangeLog5
-rw-r--r--generic/tclBasic.c14
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;
}