From fd249dfdc3e190e696aaf52a71f88090dd7fe935 Mon Sep 17 00:00:00 2001 From: Miguel Sofer Date: Tue, 25 Sep 2001 14:34:51 +0000 Subject: * generic/tclVar.c: removed comments referring to unused flag TCL_PARSE_PART1. --- ChangeLog | 5 +++++ generic/tclVar.c | 10 ++++------ 2 files changed, 9 insertions(+), 6 deletions(-) diff --git a/ChangeLog b/ChangeLog index 298993f..c8ada70 100644 --- a/ChangeLog +++ b/ChangeLog @@ -1,3 +1,8 @@ +2001-09-25 Miguel Sofer + + * generic/tclVar.c: removed comments referring to unused flag + TCL_PARSE_PART1. + 2001-09-24 Don Porter * doc/{Concat,DString,SplitList}.3: diff --git a/generic/tclVar.c b/generic/tclVar.c index c342522..79e71c6 100644 --- a/generic/tclVar.c +++ b/generic/tclVar.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: tclVar.c,v 1.36 2001/08/10 13:10:13 msofer Exp $ + * RCS: @(#) $Id: tclVar.c,v 1.37 2001/09/25 14:34:53 msofer Exp $ */ #include "tclInt.h" @@ -561,9 +561,8 @@ Tcl_ObjGetVar2(interp, part1Ptr, part2Ptr, flags) register Tcl_Obj *part2Ptr; /* If non-null, points to an object holding * the name of an element in the array * part1Ptr. */ - int flags; /* OR-ed combination of TCL_GLOBAL_ONLY, - * TCL_LEAVE_ERR_MSG, and - * TCL_PARSE_PART1 bits. */ + int flags; /* OR-ed combination of TCL_GLOBAL_ONLY and + * TCL_LEAVE_ERR_MSG bits. */ { char *part1, *part2; @@ -1142,8 +1141,7 @@ Tcl_ObjSetVar2(interp, part1Ptr, part2Ptr, newValuePtr, flags) int flags; /* Various flags that tell how to set value: * any of TCL_GLOBAL_ONLY, * TCL_NAMESPACE_ONLY, TCL_APPEND_VALUE, - * TCL_LIST_ELEMENT, TCL_LEAVE_ERR_MSG, or - * TCL_PARSE_PART1. */ + * TCL_LIST_ELEMENT, or TCL_LEAVE_ERR_MSG. */ { char *part1, *part2; -- cgit v0.12