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 | d93e68c4e796434fb11ea9c067c73dbb483fd6dd (patch) | |
| tree | e54fd36946aa49348e86fffb00f4b8993652eae9 /win/tclWinFCmd.c | |
| parent | 780e71600c142bee274fbf209304fb0ef2153143 (diff) | |
| parent | 963276ee6d0ba32137fc09c691ffe93eda538e3e (diff) | |
| download | tcl-d93e68c4e796434fb11ea9c067c73dbb483fd6dd.zip tcl-d93e68c4e796434fb11ea9c067c73dbb483fd6dd.tar.gz tcl-d93e68c4e796434fb11ea9c067c73dbb483fd6dd.tar.bz2 | |
Merge 8.7 (Some Tcl_GetStringFromObj -> TclGetStringFromObj internal changes)
Diffstat (limited to 'win/tclWinFCmd.c')
| -rw-r--r-- | win/tclWinFCmd.c | 12 |
1 files changed, 6 insertions, 6 deletions
diff --git a/win/tclWinFCmd.c b/win/tclWinFCmd.c index 7ce3b4c..e7164df 100644 --- a/win/tclWinFCmd.c +++ b/win/tclWinFCmd.c @@ -1534,7 +1534,7 @@ GetWinFileAttributes( */ Tcl_Size len; - const char *str = Tcl_GetStringFromObj(fileName, &len); + const char *str = TclGetStringFromObj(fileName, &len); if (len < 4) { if (len == 0) { @@ -1622,7 +1622,7 @@ ConvertFileNameFormat( Tcl_ListObjIndex(NULL, splitPath, i, &elt); - pathv = Tcl_GetStringFromObj(elt, &length); + pathv = TclGetStringFromObj(elt, &length); if ((pathv[0] == '/') || ((length == 3) && (pathv[1] == ':')) || (strcmp(pathv, ".") == 0) || (strcmp(pathv, "..") == 0)) { /* @@ -1658,7 +1658,7 @@ ConvertFileNameFormat( * likely to lead to infinite loops. */ - tempString = Tcl_GetStringFromObj(tempPath, &length); + tempString = TclGetStringFromObj(tempPath, &length); Tcl_DStringInit(&ds); nativeName = Tcl_UtfToWCharDString(tempString, length, &ds); Tcl_DecrRefCount(tempPath); @@ -1989,12 +1989,12 @@ TclpCreateTemporaryDirectory( */ if (dirObj) { - Tcl_GetString(dirObj); + TclGetString(dirObj); if (dirObj->length < 1) { goto useSystemTemp; } Tcl_DStringInit(&base); - Tcl_UtfToWCharDString(Tcl_GetString(dirObj), TCL_INDEX_NONE, &base); + Tcl_UtfToWCharDString(TclGetString(dirObj), TCL_INDEX_NONE, &base); if (dirObj->bytes[dirObj->length - 1] != '\\') { Tcl_UtfToWCharDString("\\", TCL_INDEX_NONE, &base); } @@ -2012,7 +2012,7 @@ TclpCreateTemporaryDirectory( #define SUFFIX_LENGTH 8 if (basenameObj) { - Tcl_UtfToWCharDString(Tcl_GetString(basenameObj), TCL_INDEX_NONE, &base); + Tcl_UtfToWCharDString(TclGetString(basenameObj), TCL_INDEX_NONE, &base); } else { Tcl_UtfToWCharDString(DEFAULT_TEMP_DIR_PREFIX, TCL_INDEX_NONE, &base); } |