diff options
| author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2015-10-24 07:50:19 (GMT) |
|---|---|---|
| committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2015-10-24 07:50:19 (GMT) |
| commit | 5c1f062ec42bf1eef2825743f30b98a560cbda9c (patch) | |
| tree | 393e44e38a6f719ea8c8f12c85e2d4a8082bdf26 /generic/tclResult.c | |
| parent | 699c7669d27cbd7e1a7fe515e89e2755a28e3406 (diff) | |
| parent | ccc9970e65e75dc95fd697a5f31f622217ed8ccb (diff) | |
| download | tcl-5c1f062ec42bf1eef2825743f30b98a560cbda9c.zip tcl-5c1f062ec42bf1eef2825743f30b98a560cbda9c.tar.gz tcl-5c1f062ec42bf1eef2825743f30b98a560cbda9c.tar.bz2 | |
merge trunk
Diffstat (limited to 'generic/tclResult.c')
| -rw-r--r-- | generic/tclResult.c | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/generic/tclResult.c b/generic/tclResult.c index ea30ce5..7e3375a 100644 --- a/generic/tclResult.c +++ b/generic/tclResult.c @@ -879,7 +879,7 @@ TclProcessReturn( if (Tcl_IsShared(iPtr->errorStack)) { Tcl_Obj *newObj; - + newObj = Tcl_DuplicateObj(iPtr->errorStack); Tcl_DecrRefCount(iPtr->errorStack); Tcl_IncrRefCount(newObj); @@ -1212,7 +1212,7 @@ TclNoErrorStack( Tcl_Obj *options) { Tcl_Obj **keys = GetKeys(); - + Tcl_DictObjRemove(interp, options, keys[KEY_ERRORSTACK]); return options; } |