diff options
| author | ferrieux <ferrieux@users.sourceforge.net> | 2008-11-19 00:00:20 (GMT) |
|---|---|---|
| committer | ferrieux <ferrieux@users.sourceforge.net> | 2008-11-19 00:00:20 (GMT) |
| commit | 3f59149579bd66510f70ecdd2cb420bb1e45e614 (patch) | |
| tree | b071cca2cf088b23f530ec5aae3924e0938b5205 /generic/tclParse.c | |
| parent | 7101dee3d37069077777424ac90b183db88d57bf (diff) | |
| download | tcl-3f59149579bd66510f70ecdd2cb420bb1e45e614.zip tcl-3f59149579bd66510f70ecdd2cb420bb1e45e614.tar.gz tcl-3f59149579bd66510f70ecdd2cb420bb1e45e614.tar.bz2 | |
Simplification of expanded-literals handling after analysis of dead branches
Diffstat (limited to 'generic/tclParse.c')
| -rw-r--r-- | generic/tclParse.c | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/generic/tclParse.c b/generic/tclParse.c index e1278a0..9f10e76 100644 --- a/generic/tclParse.c +++ b/generic/tclParse.c @@ -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: tclParse.c,v 1.74 2008/11/17 22:26:54 ferrieux Exp $ + * RCS: @(#) $Id: tclParse.c,v 1.75 2008/11/19 00:00:20 ferrieux Exp $ */ #include "tclInt.h" @@ -568,7 +568,7 @@ Tcl_ParseCommand( tokenPtr->type = TCL_TOKEN_EXPAND_WORD; } } else if ((tokenPtr->numComponents == 1) - && (tokenPtr[1].type & (TCL_TOKEN_TEXT|TCL_TOKEN_UNCOLLAPSED_TEXT))) { + && (tokenPtr[1].type == TCL_TOKEN_TEXT)) { tokenPtr->type = TCL_TOKEN_SIMPLE_WORD; } @@ -1983,7 +1983,7 @@ Tcl_SubstObj( if (varTokenPtr->type != TCL_TOKEN_VARIABLE) { Tcl_Panic("Tcl_SubstObj: programming error"); } - if (!(varTokenPtr[1].type & (TCL_TOKEN_TEXT|TCL_TOKEN_UNCOLLAPSED_TEXT))) { + if (!(varTokenPtr[1].type == TCL_TOKEN_TEXT)) { Tcl_Panic("Tcl_SubstObj: programming error"); } parsePtr->numTokens -= 2; |