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/tclWinFile.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/tclWinFile.c')
| -rw-r--r-- | win/tclWinFile.c | 10 |
1 files changed, 5 insertions, 5 deletions
diff --git a/win/tclWinFile.c b/win/tclWinFile.c index baf0734..fd28ca5 100644 --- a/win/tclWinFile.c +++ b/win/tclWinFile.c @@ -922,7 +922,7 @@ TclpMatchInDirectory( DWORD attr; WIN32_FILE_ATTRIBUTE_DATA data; Tcl_Size len = 0; - const char *str = Tcl_GetStringFromObj(norm, &len); + const char *str = TclGetStringFromObj(norm, &len); native = (const WCHAR *)Tcl_FSGetNativePath(pathPtr); @@ -982,7 +982,7 @@ TclpMatchInDirectory( */ Tcl_DStringInit(&dsOrig); - dirName = Tcl_GetStringFromObj(fileNamePtr, &dirLength); + dirName = TclGetStringFromObj(fileNamePtr, &dirLength); Tcl_DStringAppend(&dsOrig, dirName, dirLength); lastChar = dirName[dirLength -1]; @@ -2801,7 +2801,7 @@ TclpObjNormalizePath( tmpPathPtr = Tcl_NewStringObj(Tcl_DStringValue(&ds), nextCheckpoint); Tcl_AppendToObj(tmpPathPtr, lastValidPathEnd, TCL_INDEX_NONE); - path = Tcl_GetStringFromObj(tmpPathPtr, &len); + path = TclGetStringFromObj(tmpPathPtr, &len); Tcl_SetStringObj(pathPtr, path, len); Tcl_DecrRefCount(tmpPathPtr); } else { @@ -2886,7 +2886,7 @@ TclWinVolumeRelativeNormalize( */ Tcl_Size cwdLen; - const char *drive = Tcl_GetStringFromObj(useThisCwd, &cwdLen); + const char *drive = TclGetStringFromObj(useThisCwd, &cwdLen); char drive_cur = path[0]; if (drive_cur >= 'a') { @@ -3059,7 +3059,7 @@ TclNativeCreateNativeRep( Tcl_IncrRefCount(validPathPtr); } - str = Tcl_GetStringFromObj(validPathPtr, &len); + str = TclGetStringFromObj(validPathPtr, &len); if (strlen(str) != (size_t)len) { /* |