diff options
author | dkf <dkf@noemail.net> | 2012-10-05 14:54:31 (GMT) |
---|---|---|
committer | dkf <dkf@noemail.net> | 2012-10-05 14:54:31 (GMT) |
commit | dc6209bca64f070577af3b0d13032ff78de62c0d (patch) | |
tree | 5735bceaaa2c0b52d877f4b3c0458512d82b66d7 /generic/tclDictObj.c | |
parent | 0a9e576ac075429e6a44299268c2b47d977c4008 (diff) | |
download | tcl-dc6209bca64f070577af3b0d13032ff78de62c0d.zip tcl-dc6209bca64f070577af3b0d13032ff78de62c0d.tar.gz tcl-dc6209bca64f070577af3b0d13032ff78de62c0d.tar.bz2 |
...and all the compilation and tests now work/passtip-vote
FossilOrigin-Name: d075bd7bcd8fcfcd9c2b41653058d755e19db3c5
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; } |