diff options
| author | mlafon <mlafon@gmail.com> | 2017-05-04 22:27:23 (GMT) |
|---|---|---|
| committer | mlafon <mlafon@gmail.com> | 2017-05-04 22:27:23 (GMT) |
| commit | 45bf0120ad12d84441a0c3133a9aa88c446afdc0 (patch) | |
| tree | c5fa202ff0effa2d836caa70c515e9376bb7f25f /generic/tclExecute.c | |
| parent | aa7f26cefe717461f284fb9e389ee6a613b2d970 (diff) | |
| download | tcl-info_linkedname.zip tcl-info_linkedname.tar.gz tcl-info_linkedname.tar.bz2 | |
Add [info linkedname] introspection commandinfo_linkedname
Diffstat (limited to 'generic/tclExecute.c')
| -rw-r--r-- | generic/tclExecute.c | 4 |
1 files changed, 1 insertions, 3 deletions
diff --git a/generic/tclExecute.c b/generic/tclExecute.c index cfcdd26..e7b55e2 100644 --- a/generic/tclExecute.c +++ b/generic/tclExecute.c @@ -4217,9 +4217,7 @@ TEBCresume( goto gotError; } TclSetVarArray(varPtr); - varPtr->value.tablePtr = ckalloc(sizeof(TclVarHashTable)); - TclInitVarHashTable(varPtr->value.tablePtr, - TclGetVarNsPtr(varPtr)); + TclInitArrayHashTable(varPtr); #ifdef TCL_COMPILE_DEBUG TRACE_APPEND(("done\n")); } else { |