diff options
| author | dgp <dgp@users.sourceforge.net> | 2018-04-20 20:17:17 (GMT) |
|---|---|---|
| committer | dgp <dgp@users.sourceforge.net> | 2018-04-20 20:17:17 (GMT) |
| commit | ae76fbd559e8e30a6cb4c448bf4c924cbd79841b (patch) | |
| tree | b363b04f476d63662f0a2b1d311314574c355288 | |
| parent | 1734eed89f76598661a4ce4c7d5e43ce7fe4368c (diff) | |
| download | tcl-ae76fbd559e8e30a6cb4c448bf4c924cbd79841b.zip tcl-ae76fbd559e8e30a6cb4c448bf4c924cbd79841b.tar.gz tcl-ae76fbd559e8e30a6cb4c448bf4c924cbd79841b.tar.bz2 | |
DeleteArray has only one caller. It is called on the "dummy" variable
that is created during unset, and which cannot be reached by resolving
any name. It cannot have VAR_SEARCH_ACTIVE set because the sole thing that
sets that flag is an [array startsearch] applied to a named variable.
| -rw-r--r-- | generic/tclVar.c | 3 |
1 files changed, 0 insertions, 3 deletions
diff --git a/generic/tclVar.c b/generic/tclVar.c index c4952be..ed16c9f 100644 --- a/generic/tclVar.c +++ b/generic/tclVar.c @@ -5324,9 +5324,6 @@ DeleteArray( Tcl_Obj *objPtr; VarTrace *tracePtr; - if (varPtr->flags & VAR_SEARCH_ACTIVE) { - DeleteSearches(iPtr, varPtr); - } for (elPtr = VarHashFirstVar(varPtr->value.tablePtr, &search); elPtr != NULL; elPtr = VarHashNextVar(&search)) { if (TclIsVarScalar(elPtr) && (elPtr->value.objPtr != NULL)) { |