diff options
| author | dkf <dkf@noemail.net> | 2012-07-03 14:52:55 (GMT) |
|---|---|---|
| committer | dkf <dkf@noemail.net> | 2012-07-03 14:52:55 (GMT) |
| commit | 55bca015216b30f90bdf9a9eb01a4f27b806d052 (patch) | |
| tree | 84118ecaa9257d1f2e99228c0ae52bc98d574b97 /unix/tclLoadDl.c | |
| parent | 8b683092eb10a30155e93fc7f0a590b8c4761b19 (diff) | |
| download | tcl-55bca015216b30f90bdf9a9eb01a4f27b806d052.zip tcl-55bca015216b30f90bdf9a9eb01a4f27b806d052.tar.gz tcl-55bca015216b30f90bdf9a9eb01a4f27b806d052.tar.bz2 | |
Factor out a number of common patterns of use of Tcl_DStringAppend.
FossilOrigin-Name: 4dd736c95fc5e333c574e4d23aeccb7e0bdd41ae
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); |