diff options
author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2023-07-20 16:22:24 (GMT) |
---|---|---|
committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2023-07-20 16:22:24 (GMT) |
commit | 216559a0a69b0df8bb91006b20051801a6c745ea (patch) | |
tree | adcc428990f4cbb4900aa0541f8807f5db6919e0 /unix/tclLoadDyld.c | |
parent | 31d2eacf4146aec4f4650b0493b966660b8bcce0 (diff) | |
download | tcl-216559a0a69b0df8bb91006b20051801a6c745ea.zip tcl-216559a0a69b0df8bb91006b20051801a6c745ea.tar.gz tcl-216559a0a69b0df8bb91006b20051801a6c745ea.tar.bz2 |
Make "cd" encoding-error-aware
Diffstat (limited to 'unix/tclLoadDyld.c')
-rw-r--r-- | unix/tclLoadDyld.c | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/unix/tclLoadDyld.c b/unix/tclLoadDyld.c index 0bb56c8..67e1682 100644 --- a/unix/tclLoadDyld.c +++ b/unix/tclLoadDyld.c @@ -189,7 +189,7 @@ TclpDlopen( Tcl_DStringFree(&ds); return TCL_ERROR; } - nativeFileName = Tcl_DStringValue(); + nativeFileName = Tcl_DStringValue(&ds); #if TCL_DYLD_USE_DLFCN /* @@ -347,7 +347,7 @@ FindSymbol( if (Tcl_UtfToExternalDStringEx(interp, NULL, symbol, TCL_INDEX_NONE, 0, &ds, NULL) != TCL_OK) { Tcl_DStringFree(&ds); - return TCL_ERROR; + return NULL; } native = Tcl_DStringValue(&ds); if (dyldLoadHandle->dlHandle) { |