diff options
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 |