diff options
| author | dgp <dgp@users.sourceforge.net> | 2004-10-01 03:19:56 (GMT) |
|---|---|---|
| committer | dgp <dgp@users.sourceforge.net> | 2004-10-01 03:19:56 (GMT) |
| commit | 659cfd43ab1e3669896b987ce4d501df9e9b80cc (patch) | |
| tree | f632e092989c9cfee43e392e9df3a70514351674 | |
| parent | e4934a0b0d10dcb22c615f1ff62a6e596b753455 (diff) | |
| download | tcl-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-- | ChangeLog | 5 | ||||
| -rw-r--r-- | generic/tclBasic.c | 3 | ||||
| -rw-r--r-- | generic/tclInt.h | 5 |
3 files changed, 7 insertions, 6 deletions
@@ -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 |