diff options
| author | dgp <dgp@users.sourceforge.net> | 2013-02-04 18:38:41 (GMT) |
|---|---|---|
| committer | dgp <dgp@users.sourceforge.net> | 2013-02-04 18:38:41 (GMT) |
| commit | 00085648bf2759b366438cbc3d9d1c4eb7ba379f (patch) | |
| tree | b8a3ae129e2fb1c22449d661cafeda30f5b0af46 /generic/tclVar.c | |
| parent | e3ebdcef6c0fac5f986d73c45f0c70b4f02f0707 (diff) | |
| download | tcl-00085648bf2759b366438cbc3d9d1c4eb7ba379f.zip tcl-00085648bf2759b366438cbc3d9d1c4eb7ba379f.tar.gz tcl-00085648bf2759b366438cbc3d9d1c4eb7ba379f.tar.bz2 | |
Cherrypick again. Add test.bug_3602706
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. * *---------------------------------------------------------------------- */ |