From 659cfd43ab1e3669896b987ce4d501df9e9b80cc Mon Sep 17 00:00:00 2001
From: dgp <dgp@users.sourceforge.net>
Date: Fri, 1 Oct 2004 03:19:56 +0000
Subject:         * generic/tclBasic.c (Tcl_CreateInterp): Removed the flag bit
 value         * generic/tclInt.h (Interp):    EXPR_INITIALIZED.  It was set
 during         interp creation and never tested.  Whatever purpose it had is
 in 	the past.

---
 ChangeLog          | 5 +++++
 generic/tclBasic.c | 3 +--
 generic/tclInt.h   | 5 +----
 3 files changed, 7 insertions(+), 6 deletions(-)

diff --git a/ChangeLog b/ChangeLog
index 9c82d6d..5db67a1 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,5 +1,10 @@
 2004-09-30  Don Porter  <dgp@users.sourceforge.net>
 
+	* generic/tclBasic.c (Tcl_CreateInterp): Removed the flag bit value
+	* generic/tclInt.h (Interp):	EXPR_INITIALIZED.  It was set during
+	interp creation and never tested.  Whatever purpose it had is in
+	the past.
+
 	* generic/tclBasic.c (Tcl_EvalObjEx):	Removed the flag bit value
 	* generic/tclInt.h (Interp):	USE_EVAL_DIRECT.  It was used only
 	* generic/tcLTest.c (TestevalexObjCmd):	in the testing command
diff --git a/generic/tclBasic.c b/generic/tclBasic.c
index 2d068fc..6cb7cd0 100644
--- a/generic/tclBasic.c
+++ b/generic/tclBasic.c
@@ -13,7 +13,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.121 2004/10/01 03:10:35 dgp Exp $
+ * RCS: @(#) $Id: tclBasic.c,v 1.122 2004/10/01 03:19:56 dgp Exp $
  */
 
 #include "tclInt.h"
@@ -419,7 +419,6 @@ Tcl_CreateInterp()
 	mathFuncPtr->builtinFuncIndex = i;
 	i++;
     }
-    iPtr->flags |= EXPR_INITIALIZED;
 
     /*
      * Do Multiple/Safe Interps Tcl init stuff
diff --git a/generic/tclInt.h b/generic/tclInt.h
index 5721d0d..05488d2 100644
--- a/generic/tclInt.h
+++ b/generic/tclInt.h
@@ -12,7 +12,7 @@
  * See the file "license.terms" for information on usage and redistribution
  * of this file, and for a DISCLAIMER OF ALL WARRANTIES.
  *
- * RCS: @(#) $Id: tclInt.h,v 1.177 2004/10/01 03:10:36 dgp Exp $
+ * RCS: @(#) $Id: tclInt.h,v 1.178 2004/10/01 03:19:57 dgp Exp $
  */
 
 #ifndef _TCLINT
@@ -1404,8 +1404,6 @@ typedef struct Interp {
  *			called to record information for the current
  *			error.	Zero means Tcl_Eval must clear the
  *			errorCode variable if an error is returned.
- * EXPR_INITIALIZED:	Non-zero means initialization specific to
- *			expressions has	been carried out.
  * DONT_COMPILE_CMDS_INLINE: Non-zero means that the bytecode compiler
  *			should not compile any commands into an inline
  *			sequence of instructions. This is set 1, for
@@ -1425,7 +1423,6 @@ typedef struct Interp {
 #define ERR_IN_PROGRESS			    2
 #define ERR_ALREADY_LOGGED		    4
 #define ERROR_CODE_SET			    8
-#define EXPR_INITIALIZED		 0x10
 #define DONT_COMPILE_CMDS_INLINE	 0x20
 #define RAND_SEED_INITIALIZED		 0x40
 #define SAFE_INTERP			 0x80
-- 
cgit v0.12