diff options
| author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2024-03-19 16:43:41 (GMT) |
|---|---|---|
| committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2024-03-19 16:43:41 (GMT) |
| commit | 1f9225ecf514564b9994b7747fbdc7852a321dfa (patch) | |
| tree | e54fd36946aa49348e86fffb00f4b8993652eae9 /unix/tclUnixFile.c | |
| parent | 16b3adf662893e6db67e82fb1df01063e1315548 (diff) | |
| parent | 7208478d1c5c7ed65b3d0bdaced2740830f3859b (diff) | |
| download | tcl-1f9225ecf514564b9994b7747fbdc7852a321dfa.zip tcl-1f9225ecf514564b9994b7747fbdc7852a321dfa.tar.gz tcl-1f9225ecf514564b9994b7747fbdc7852a321dfa.tar.bz2 | |
Merge 8.7 (Some Tcl_GetStringFromObj -> TclGetStringFromObj internal changes)
Diffstat (limited to 'unix/tclUnixFile.c')
| -rw-r--r-- | unix/tclUnixFile.c | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/unix/tclUnixFile.c b/unix/tclUnixFile.c index 42be6bc..70924f8 100644 --- a/unix/tclUnixFile.c +++ b/unix/tclUnixFile.c @@ -989,7 +989,7 @@ TclpObjLink( if (transPtr == NULL) { return NULL; } - target = Tcl_GetStringFromObj(transPtr, &length); + target = TclGetStringFromObj(transPtr, &length); if (Tcl_UtfToExternalDStringEx(NULL, NULL, target, length, 0, &ds, NULL) != TCL_OK) { Tcl_DStringFree(&ds); return NULL; @@ -1149,7 +1149,7 @@ TclNativeCreateNativeRep( Tcl_IncrRefCount(validPathPtr); } - str = Tcl_GetStringFromObj(validPathPtr, &len); + str = TclGetStringFromObj(validPathPtr, &len); if (Tcl_UtfToExternalDStringEx(NULL, NULL, str, len, 0, &ds, NULL) != TCL_OK) { Tcl_DecrRefCount(validPathPtr); Tcl_DStringFree(&ds); |