diff options
| author | dgp@users.sourceforge.net <dgp> | 2013-02-04 18:38:41 (GMT) |
|---|---|---|
| committer | dgp@users.sourceforge.net <dgp> | 2013-02-04 18:38:41 (GMT) |
| commit | bd1cb648e874e8c650c105a10385835555901692 (patch) | |
| tree | b8a3ae129e2fb1c22449d661cafeda30f5b0af46 /generic/tclVar.c | |
| parent | 8dbb980da2405e2a49dcd9fad3957d251eaabfcb (diff) | |
| download | tcl-bd1cb648e874e8c650c105a10385835555901692.zip tcl-bd1cb648e874e8c650c105a10385835555901692.tar.gz tcl-bd1cb648e874e8c650c105a10385835555901692.tar.bz2 | |
Cherrypick again. Add test.
Diffstat (limited to 'generic/tclVar.c')
| -rw-r--r-- | generic/tclVar.c | 6 |
1 files changed, 0 insertions, 6 deletions
diff --git a/generic/tclVar.c b/generic/tclVar.c index 4458dac..d000296 100644 --- a/generic/tclVar.c +++ b/generic/tclVar.c @@ -70,9 +70,6 @@ VarHashCreateVar( } } -/* - * Callers must Incr key if they plan to Decr it. - */ #define VarHashFindVar(tablePtr, key) \ VarHashCreateVar((tablePtr), (key), NULL) #define VarHashInvalidateEntry(varPtr) \ @@ -4987,13 +4984,11 @@ Tcl_FindNamespaceVar( Tcl_Obj *namePtr = Tcl_NewStringObj(name, -1); Tcl_Var var; - Tcl_IncrRefCount(namePtr); var = ObjFindNamespaceVar(interp, namePtr, contextNsPtr, flags); Tcl_DecrRefCount(namePtr); return var; } -/* Callers must incr namePtr if they plan to decr it. */ static Tcl_Var ObjFindNamespaceVar( Tcl_Interp *interp, /* The interpreter in which to find the @@ -5463,7 +5458,6 @@ TclInfoLocalsCmd( * * Side effects: * None. - * Caller must incr patternPtr if they plan to decr it. * *---------------------------------------------------------------------- */ |