Tcl Source Code

Check-in [e5a8be5394]
Login

Many hyperlinks are disabled.
Use anonymous login to enable hyperlinks.

Overview
Comment:Implement Tcl_DStringResult with call to TclDStringToObj.
Downloads: Tarball | ZIP archive | SQL archive
Timelines: family | ancestors | descendants | both | dgp-remove-string-result
Files: files | file ages | folders
SHA1: e5a8be53949bd8f2645818d0a6b29f91e78f0477
User & Date: dgp 2012-04-25 21:03:58
Context
2012-07-19
15:08
merge trunk check-in: 7f4305364f user: dgp tags: dgp-remove-string-result
2012-04-25
21:03
Implement Tcl_DStringResult with call to TclDStringToObj. check-in: e5a8be5394 user: dgp tags: dgp-remove-string-result
21:02
merge trunk check-in: e9150d1e4c user: dgp tags: dgp-remove-string-result
Changes
Hide Diffs Unified Diffs Ignore Whitespace Patch

Changes to generic/tclUtil.c.

2622
2623
2624
2625
2626
2627
2628
2629
2630
2631
2632
2633
2634
2635
2636
2637
2638
2639
2640
2641

void
Tcl_DStringResult(
    Tcl_Interp *interp,		/* Interpreter whose result is to be reset. */
    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_DStringGetResult --
 *







<
|
<
<
<
<







2622
2623
2624
2625
2626
2627
2628

2629




2630
2631
2632
2633
2634
2635
2636

void
Tcl_DStringResult(
    Tcl_Interp *interp,		/* Interpreter whose result is to be reset. */
    Tcl_DString *dsPtr)		/* Dynamic string that is to become the
				 * result of interp. */
{

    Tcl_SetObjResult(interp, TclDStringToObj(dsPtr));




}

/*
 *----------------------------------------------------------------------
 *
 * Tcl_DStringGetResult --
 *