diff options
| author | dkf <dkf@noemail.net> | 2012-07-04 07:09:40 (GMT) |
|---|---|---|
| committer | dkf <dkf@noemail.net> | 2012-07-04 07:09:40 (GMT) |
| commit | d9614c16c9e26645796f3d1dbe5ccf9ec6c454ed (patch) | |
| tree | f601a0cf95af6e9aeea8f330063f37565515f418 /unix/tclLoadDl.c | |
| parent | 29b21b94b4fb0fe9d7c3bd9e053345d646b08505 (diff) | |
| parent | e26170a64246bf5ff088c9deae6f101bee5d134f (diff) | |
| download | tcl-d9614c16c9e26645796f3d1dbe5ccf9ec6c454ed.zip tcl-d9614c16c9e26645796f3d1dbe5ccf9ec6c454ed.tar.gz tcl-d9614c16c9e26645796f3d1dbe5ccf9ec6c454ed.tar.bz2 | |
merge trunk
FossilOrigin-Name: d35459107e0b331a9383ca0a41d050e6798b8396
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); |