diff options
| author | dkf <donal.k.fellows@manchester.ac.uk> | 2018-09-26 23:17:48 (GMT) |
|---|---|---|
| committer | dkf <donal.k.fellows@manchester.ac.uk> | 2018-09-26 23:17:48 (GMT) |
| commit | f0ab769a7c08c55af11efacae2e62b8da73a60fd (patch) | |
| tree | 3cf3e50c5065fa97690f67a1aadc3c9f0129282b /generic/tclExecute.c | |
| parent | 59f808eb7a065aaf628c751e8eb2c7e20505989b (diff) | |
| parent | 9aa47b2cfa64ee148cbc6dace75fbab5a48209b8 (diff) | |
| download | tcl-f0ab769a7c08c55af11efacae2e62b8da73a60fd.zip tcl-f0ab769a7c08c55af11efacae2e62b8da73a60fd.tar.gz tcl-f0ab769a7c08c55af11efacae2e62b8da73a60fd.tar.bz2 | |
Implementation of TIP 508: [array default]
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 cc4da9b..c553dea 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 { |