diff options
| author | apnadkarni <apnmbx-wits@yahoo.com> | 2022-07-31 06:32:22 (GMT) |
|---|---|---|
| committer | apnadkarni <apnmbx-wits@yahoo.com> | 2022-07-31 06:32:22 (GMT) |
| commit | d2518017c7f55b82f10c7ee1e77cbe27218cc857 (patch) | |
| tree | 6ed28530bb059df23572a55b298e9cbe740a6a27 /unix/tclLoadDl.c | |
| parent | 3674905dbda8443171db562a6c69bf50228f18fb (diff) | |
| parent | 13384df4afe1602c77e79a0661eb8f70419f1697 (diff) | |
| download | tcl-d2518017c7f55b82f10c7ee1e77cbe27218cc857.zip tcl-d2518017c7f55b82f10c7ee1e77cbe27218cc857.tar.gz tcl-d2518017c7f55b82f10c7ee1e77cbe27218cc857.tar.bz2 | |
Merged trunk.
Diffstat (limited to 'unix/tclLoadDl.c')
| -rw-r--r-- | unix/tclLoadDl.c | 10 |
1 files changed, 5 insertions, 5 deletions
diff --git a/unix/tclLoadDl.c b/unix/tclLoadDl.c index bd3e92c..dd6c50e 100644 --- a/unix/tclLoadDl.c +++ b/unix/tclLoadDl.c @@ -108,7 +108,7 @@ TclpDlopen( Tcl_DString ds; const char *fileName = TclGetString(pathPtr); - native = Tcl_UtfToExternalDString(NULL, fileName, -1, &ds); + native = Tcl_UtfToExternalDString(NULL, fileName, TCL_INDEX_NONE, &ds); /* * Use (RTLD_NOW|RTLD_LOCAL) as default, see [Bug #3216070] */ @@ -179,12 +179,12 @@ FindSymbol( * the underscore. */ - native = Tcl_UtfToExternalDString(NULL, symbol, -1, &ds); + native = Tcl_UtfToExternalDString(NULL, symbol, TCL_INDEX_NONE, &ds); proc = dlsym(handle, native); /* INTL: Native. */ if (proc == NULL) { Tcl_DStringInit(&newName); TclDStringAppendLiteral(&newName, "_"); - native = Tcl_DStringAppend(&newName, native, -1); + native = Tcl_DStringAppend(&newName, native, TCL_INDEX_NONE); proc = dlsym(handle, native); /* INTL: Native. */ Tcl_DStringFree(&newName); } @@ -194,8 +194,8 @@ FindSymbol( sprintf(buf, "%d", (int)Tcl_DStringLength(&ds)); Tcl_DStringInit(&newName); TclDStringAppendLiteral(&newName, "__Z"); - Tcl_DStringAppend(&newName, buf, -1); - Tcl_DStringAppend(&newName, Tcl_DStringValue(&ds), -1); + Tcl_DStringAppend(&newName, buf, TCL_INDEX_NONE); + Tcl_DStringAppend(&newName, Tcl_DStringValue(&ds), TCL_INDEX_NONE); TclDStringAppendLiteral(&newName, "P10Tcl_Interp"); native = Tcl_DStringValue(&newName); proc = dlsym(handle, native + 1); /* INTL: Native. */ |