diff options
| author | msofer <msofer@noemail.net> | 2001-09-25 14:34:51 (GMT) |
|---|---|---|
| committer | msofer <msofer@noemail.net> | 2001-09-25 14:34:51 (GMT) |
| commit | d4842d40e8e059e494fa262c52fdec6c51968feb (patch) | |
| tree | 552b5c9eef50c78f06a7813281cd8a7fd710f0cf /generic/tclVar.c | |
| parent | 6bb97021d20a50517d05920a9f81c7b75c379419 (diff) | |
| download | tcl-d4842d40e8e059e494fa262c52fdec6c51968feb.zip tcl-d4842d40e8e059e494fa262c52fdec6c51968feb.tar.gz tcl-d4842d40e8e059e494fa262c52fdec6c51968feb.tar.bz2 | |
* generic/tclVar.c: removed comments referring to unused flag TCL_PARSE_PART1.
FossilOrigin-Name: c9c1d8c1e733af0bfd0987151868cfef7bbb449a
Diffstat (limited to 'generic/tclVar.c')
| -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; |