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/tclLoadDl.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/tclLoadDl.c')
| -rw-r--r-- | unix/tclLoadDl.c | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/unix/tclLoadDl.c b/unix/tclLoadDl.c index 96f0717..d86e7fd 100644 --- a/unix/tclLoadDl.c +++ b/unix/tclLoadDl.c @@ -168,7 +168,7 @@ FindSymbol( proc = dlsym(handle, native); /* INTL: Native. */ if (proc == NULL) { Tcl_DStringInit(&newName); - Tcl_DStringAppend(&newName, "_", 1); + TclDStringAppendLiteral(&newName, "_"); native = Tcl_DStringAppend(&newName, native, -1); proc = dlsym(handle, native); /* INTL: Native. */ Tcl_DStringFree(&newName); |