diff options
| author | Miguel Sofer <miguel.sofer@gmail.com> | 2001-09-25 14:34:51 (GMT) |
|---|---|---|
| committer | Miguel Sofer <miguel.sofer@gmail.com> | 2001-09-25 14:34:51 (GMT) |
| commit | fd249dfdc3e190e696aaf52a71f88090dd7fe935 (patch) | |
| tree | 552b5c9eef50c78f06a7813281cd8a7fd710f0cf /generic | |
| parent | 85efd4f6340d3db40be6608dc383cf19efb4fecf (diff) | |
| download | tcl-fd249dfdc3e190e696aaf52a71f88090dd7fe935.zip tcl-fd249dfdc3e190e696aaf52a71f88090dd7fe935.tar.gz tcl-fd249dfdc3e190e696aaf52a71f88090dd7fe935.tar.bz2 | |
* generic/tclVar.c: removed comments referring to unused flag TCL_PARSE_PART1.
Diffstat (limited to 'generic')
| -rw-r--r-- | generic/tclVar.c | 10 |
1 files changed, 4 insertions, 6 deletions
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; |