diff options
| author | nijtmans@users.sourceforge.net <jan.nijtmans> | 2012-07-08 10:57:11 (GMT) |
|---|---|---|
| committer | nijtmans@users.sourceforge.net <jan.nijtmans> | 2012-07-08 10:57:11 (GMT) |
| commit | 5d0e68e85f6db35dc2c8290574ed51501af97b53 (patch) | |
| tree | 4fe8a274a2300c18c6843b1249e2b33e343b895f /unix/tclLoadDl.c | |
| parent | 701ec705e968a70f3ddb5f719423c33448468015 (diff) | |
| parent | e03c7210544b3cecca3383290a9b26e19f18b5b8 (diff) | |
| download | tcl-5d0e68e85f6db35dc2c8290574ed51501af97b53.zip tcl-5d0e68e85f6db35dc2c8290574ed51501af97b53.tar.gz tcl-5d0e68e85f6db35dc2c8290574ed51501af97b53.tar.bz2 | |
merge trunk
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); |