diff options
| author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2018-09-27 21:46:24 (GMT) |
|---|---|---|
| committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2018-09-27 21:46:24 (GMT) |
| commit | 66dc9d1fbf386242fb1466bf1a289cce96e96e63 (patch) | |
| tree | c731fd5f305e5239f0c0df4575c7baf53aadb21a /generic/tclExecute.c | |
| parent | 71e4ddb74f8d4d41b043974748d20f663762b628 (diff) | |
| parent | b1e6b58b6a6f158c8d9b70dc058af67fe8605b0f (diff) | |
| download | tcl-66dc9d1fbf386242fb1466bf1a289cce96e96e63.zip tcl-66dc9d1fbf386242fb1466bf1a289cce96e96e63.tar.gz tcl-66dc9d1fbf386242fb1466bf1a289cce96e96e63.tar.bz2 | |
Merge 8.7
Diffstat (limited to 'generic/tclExecute.c')
| -rw-r--r-- | generic/tclExecute.c | 5 |
1 files changed, 1 insertions, 4 deletions
diff --git a/generic/tclExecute.c b/generic/tclExecute.c index d54afc9..9a97185 100644 --- a/generic/tclExecute.c +++ b/generic/tclExecute.c @@ -4070,10 +4070,7 @@ TEBCresume( TRACE_ERROR(interp); goto gotError; } - TclSetVarArray(varPtr); - varPtr->value.tablePtr = ckalloc(sizeof(TclVarHashTable)); - TclInitVarHashTable(varPtr->value.tablePtr, - TclGetVarNsPtr(varPtr)); + TclInitArrayVar(varPtr); #ifdef TCL_COMPILE_DEBUG TRACE_APPEND(("done\n")); } else { |