diff options
| author | dgp <dgp@users.sourceforge.net> | 2012-04-25 21:03:58 (GMT) |
|---|---|---|
| committer | dgp <dgp@users.sourceforge.net> | 2012-04-25 21:03:58 (GMT) |
| commit | bc2133334d0fb3580be3b1cd65ed85b991887e68 (patch) | |
| tree | d4b1ac0f97f3c20a61b39ffa8a6925f324d3a4be /generic/tclUtil.c | |
| parent | dd3866036b2c88ed4309f0bc543355e3bfa8deac (diff) | |
| download | tcl-bc2133334d0fb3580be3b1cd65ed85b991887e68.zip tcl-bc2133334d0fb3580be3b1cd65ed85b991887e68.tar.gz tcl-bc2133334d0fb3580be3b1cd65ed85b991887e68.tar.bz2 | |
Implement Tcl_DStringResult with call to TclDStringToObj.
Diffstat (limited to 'generic/tclUtil.c')
| -rw-r--r-- | generic/tclUtil.c | 7 |
1 files changed, 1 insertions, 6 deletions
diff --git a/generic/tclUtil.c b/generic/tclUtil.c index 8852a56..1e35165 100644 --- a/generic/tclUtil.c +++ b/generic/tclUtil.c @@ -2626,12 +2626,7 @@ Tcl_DStringResult( Tcl_DString *dsPtr) /* Dynamic string that is to become the * result of interp. */ { - Tcl_SetResult(interp, dsPtr->string, TCL_VOLATILE); - - dsPtr->string = dsPtr->staticSpace; - dsPtr->length = 0; - dsPtr->spaceAvl = TCL_DSTRING_STATIC_SIZE; - dsPtr->staticSpace[0] = '\0'; + Tcl_SetObjResult(interp, TclDStringToObj(dsPtr)); } /* |