From bc2133334d0fb3580be3b1cd65ed85b991887e68 Mon Sep 17 00:00:00 2001
From: dgp <dgp@users.sourceforge.net>
Date: Wed, 25 Apr 2012 21:03:58 +0000
Subject: Implement Tcl_DStringResult with call to TclDStringToObj.

---
 generic/tclUtil.c | 7 +------
 1 file changed, 1 insertion(+), 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));
 }
 
 /*
-- 
cgit v0.12