diff options
| author | dkf <donal.k.fellows@manchester.ac.uk> | 2012-10-05 14:54:31 (GMT) |
|---|---|---|
| committer | dkf <donal.k.fellows@manchester.ac.uk> | 2012-10-05 14:54:31 (GMT) |
| commit | d52dd4c19ba394378cc539de8daae266fe034307 (patch) | |
| tree | e23e39523330a1da639425aeacc4181f3764ef14 /generic/tclDictObj.c | |
| parent | a41520cafc3a8bda98fb4c37256ad2b7c56f0b6a (diff) | |
| download | tcl-d52dd4c19ba394378cc539de8daae266fe034307.zip tcl-d52dd4c19ba394378cc539de8daae266fe034307.tar.gz tcl-d52dd4c19ba394378cc539de8daae266fe034307.tar.bz2 | |
...and all the compilation and tests now work/passtip_vote
Diffstat (limited to 'generic/tclDictObj.c')
| -rw-r--r-- | generic/tclDictObj.c | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/generic/tclDictObj.c b/generic/tclDictObj.c index dac4cbe..b64b776 100644 --- a/generic/tclDictObj.c +++ b/generic/tclDictObj.c @@ -2619,6 +2619,7 @@ DictMapNRCmd( * internally so that updates, shimmering, etc are not a problem. */ + Tcl_IncrRefCount(storagePtr->accumulatorObj); Tcl_IncrRefCount(storagePtr->keyVarObj); Tcl_IncrRefCount(storagePtr->valueVarObj); Tcl_IncrRefCount(storagePtr->scriptObj); @@ -2707,7 +2708,7 @@ DictMapLoopCallback( Tcl_DictObjNext(&storagePtr->search, &keyObj, &valueObj, &done); if (done) { - Tcl_ResetResult(interp); + Tcl_SetObjResult(interp, storagePtr->accumulatorObj); goto done; } |