diff options
| author | dkf <donal.k.fellows@manchester.ac.uk> | 2024-08-06 11:12:47 (GMT) |
|---|---|---|
| committer | dkf <donal.k.fellows@manchester.ac.uk> | 2024-08-06 11:12:47 (GMT) |
| commit | 6c41478f2cdcbefeae9c340e1ba2bc9d8d51d47d (patch) | |
| tree | 10b477c4f96989d84a5453310c9715aaef2b3413 /unix/tclLoadOSF.c | |
| parent | 351ab9f3bf86ea2d971416a759964c836e91c1b9 (diff) | |
| parent | e92ac699c1a4fc8683a61f855f5250c72d12b1c1 (diff) | |
| download | tcl-6c41478f2cdcbefeae9c340e1ba2bc9d8d51d47d.zip tcl-6c41478f2cdcbefeae9c340e1ba2bc9d8d51d47d.tar.gz tcl-6c41478f2cdcbefeae9c340e1ba2bc9d8d51d47d.tar.bz2 | |
merge 8.6
Diffstat (limited to 'unix/tclLoadOSF.c')
| -rw-r--r-- | unix/tclLoadOSF.c | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/unix/tclLoadOSF.c b/unix/tclLoadOSF.c index 377ed28..511182d 100644 --- a/unix/tclLoadOSF.c +++ b/unix/tclLoadOSF.c @@ -124,7 +124,7 @@ TclpDlopen( */ if ((pkg = strrchr(fileName, '/')) == NULL) { - pkg = fileName; + pkg = fileName; } else { pkg++; } @@ -164,7 +164,7 @@ FindSymbol( if (retval == NULL && interp != NULL) { Tcl_SetObjResult(interp, Tcl_ObjPrintf( "cannot find symbol \"%s\"", symbol)); - Tcl_SetErrorCode(interp, "TCL", "LOOKUP", "LOAD_SYMBOL", symbol, NULL); + Tcl_SetErrorCode(interp, "TCL", "LOOKUP", "LOAD_SYMBOL", symbol, (char *)NULL); } return retval; } |