summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authordgp <dgp@users.sourceforge.net>2004-10-01 03:19:56 (GMT)
committerdgp <dgp@users.sourceforge.net>2004-10-01 03:19:56 (GMT)
commit659cfd43ab1e3669896b987ce4d501df9e9b80cc (patch)
treef632e092989c9cfee43e392e9df3a70514351674
parente4934a0b0d10dcb22c615f1ff62a6e596b753455 (diff)
downloadtcl-659cfd43ab1e3669896b987ce4d501df9e9b80cc.zip
tcl-659cfd43ab1e3669896b987ce4d501df9e9b80cc.tar.gz
tcl-659cfd43ab1e3669896b987ce4d501df9e9b80cc.tar.bz2
* 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.
-rw-r--r--ChangeLog5
-rw-r--r--generic/tclBasic.c3
-rw-r--r--generic/tclInt.h5
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