diff options
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 { |