diff options
| author | dkf <donal.k.fellows@manchester.ac.uk> | 2012-07-03 14:52:55 (GMT) |
|---|---|---|
| committer | dkf <donal.k.fellows@manchester.ac.uk> | 2012-07-03 14:52:55 (GMT) |
| commit | 08bec1c1e8e4aae5cb45d4c68a2ab5d9bd73470e (patch) | |
| tree | 84118ecaa9257d1f2e99228c0ae52bc98d574b97 /unix/tclUnixChan.c | |
| parent | a70bdc9ec1f2e2009feff998bb7ceb63dd28cb90 (diff) | |
| download | tcl-08bec1c1e8e4aae5cb45d4c68a2ab5d9bd73470e.zip tcl-08bec1c1e8e4aae5cb45d4c68a2ab5d9bd73470e.tar.gz tcl-08bec1c1e8e4aae5cb45d4c68a2ab5d9bd73470e.tar.bz2 | |
Factor out a number of common patterns of use of Tcl_DStringAppend.
Diffstat (limited to 'unix/tclUnixChan.c')
| -rw-r--r-- | unix/tclUnixChan.c | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/unix/tclUnixChan.c b/unix/tclUnixChan.c index b05a9f2..3845c44 100644 --- a/unix/tclUnixChan.c +++ b/unix/tclUnixChan.c @@ -733,7 +733,7 @@ TtySetOptionProc( Tcl_UtfToExternalDString(NULL, argv[0], -1, &ds); iostate.c_cc[VSTART] = *(const cc_t *) Tcl_DStringValue(&ds); - Tcl_DStringSetLength(&ds, 0); + TclDStringClear(&ds); Tcl_UtfToExternalDString(NULL, argv[1], -1, &ds); iostate.c_cc[VSTOP] = *(const cc_t *) Tcl_DStringValue(&ds); @@ -916,7 +916,7 @@ TtyGetOptionProc( Tcl_ExternalToUtfDString(NULL, (char *) &iostate.c_cc[VSTART], 1, &ds); Tcl_DStringAppendElement(dsPtr, Tcl_DStringValue(&ds)); - Tcl_DStringSetLength(&ds, 0); + TclDStringClear(&ds); Tcl_ExternalToUtfDString(NULL, (char *) &iostate.c_cc[VSTOP], 1, &ds); Tcl_DStringAppendElement(dsPtr, Tcl_DStringValue(&ds)); |