diff options
| author | hobbs <hobbs> | 1999-10-05 22:45:39 (GMT) |
|---|---|---|
| committer | hobbs <hobbs> | 1999-10-05 22:45:39 (GMT) |
| commit | 09d294ea82f569a8fc9e320b25545754167bb3e0 (patch) | |
| tree | 52242f087e8f3dd496e51c71ed05b6f90c0be7b6 /generic/tclVar.c | |
| parent | 4fb666fe0696b03e76f9de6565de9c67eefaee40 (diff) | |
| download | tcl-09d294ea82f569a8fc9e320b25545754167bb3e0.zip tcl-09d294ea82f569a8fc9e320b25545754167bb3e0.tar.gz tcl-09d294ea82f569a8fc9e320b25545754167bb3e0.tar.bz2 | |
* generic/tclNamesp.c:
* generic/tclVar.c:
* generic/tclCmdIL.c: fixed comment typos
* generic/tcl.h:
* library/init.tcl: updated to 8.3a1 from 8.2.0.
Diffstat (limited to 'generic/tclVar.c')
| -rw-r--r-- | generic/tclVar.c | 10 |
1 files changed, 5 insertions, 5 deletions
diff --git a/generic/tclVar.c b/generic/tclVar.c index f7ceedc..252da01 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.13 1999/09/21 04:20:41 hobbs Exp $ + * RCS: @(#) $Id: tclVar.c,v 1.14 1999/10/05 22:45:40 hobbs Exp $ */ #include "tclInt.h" @@ -1263,12 +1263,12 @@ Tcl_SetVar2Ex(interp, part1, part2, newValuePtr, flags) if (oldValuePtr == NULL) { TclNewObj(oldValuePtr); varPtr->value.objPtr = oldValuePtr; - Tcl_IncrRefCount(oldValuePtr); /* since var is reference */ + Tcl_IncrRefCount(oldValuePtr); /* since var is referenced */ } else if (Tcl_IsShared(oldValuePtr)) { varPtr->value.objPtr = Tcl_DuplicateObj(oldValuePtr); Tcl_DecrRefCount(oldValuePtr); oldValuePtr = varPtr->value.objPtr; - Tcl_IncrRefCount(oldValuePtr); /* since var is reference */ + Tcl_IncrRefCount(oldValuePtr); /* since var is referenced */ } result = Tcl_ListObjAppendElement(interp, oldValuePtr, newValuePtr); @@ -2469,8 +2469,8 @@ Tcl_VarTraceInfo(interp, varName, flags, proc, prevClientData) Tcl_Interp *interp; /* Interpreter containing variable. */ char *varName; /* Name of variable; may end with "(index)" * to signify an array reference. */ - int flags; /* 0, TCL_GLOBAL_ONLY, or - * TCL_NAMESPACE_ONLY. */ + int flags; /* OR-ed combo or TCL_GLOBAL_ONLY, + * TCL_NAMESPACE_ONLY (can be 0). */ Tcl_VarTraceProc *proc; /* Procedure assocated with trace. */ ClientData prevClientData; /* If non-NULL, gives last value returned * by this procedure, so this call will |