diff options
| author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2019-09-04 21:19:59 (GMT) |
|---|---|---|
| committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2019-09-04 21:19:59 (GMT) |
| commit | ed985943f3df9f3ed7b6cc8130c0e67cece08dfd (patch) | |
| tree | c75eb6e59148cd2377cbdd828dce331083050152 /unix/tclLoadDl.c | |
| parent | 650605595407701981f6662028e353accea5d38c (diff) | |
| download | tcl-ed985943f3df9f3ed7b6cc8130c0e67cece08dfd.zip tcl-ed985943f3df9f3ed7b6cc8130c0e67cece08dfd.tar.gz tcl-ed985943f3df9f3ed7b6cc8130c0e67cece08dfd.tar.bz2 | |
Handle "Unload" as well
Diffstat (limited to 'unix/tclLoadDl.c')
| -rw-r--r-- | unix/tclLoadDl.c | 8 |
1 files changed, 8 insertions, 0 deletions
diff --git a/unix/tclLoadDl.c b/unix/tclLoadDl.c index 73a44f2..0fef500 100644 --- a/unix/tclLoadDl.c +++ b/unix/tclLoadDl.c @@ -202,6 +202,14 @@ FindSymbol( if (proc == NULL) { proc = dlsym(handle, native); /* INTL: Native. */ } + if (proc == NULL) { + TclDStringAppendLiteral(&newName, "i"); + native = Tcl_DStringValue(&newName); + proc = dlsym(handle, native + 1); /* INTL: Native. */ + } + if (proc == NULL) { + proc = dlsym(handle, native); /* INTL: Native. */ + } Tcl_DStringFree(&newName); } #endif |