diff options
| author | nijtmans <nijtmans> | 2010-02-15 22:56:19 (GMT) |
|---|---|---|
| committer | nijtmans <nijtmans> | 2010-02-15 22:56:19 (GMT) |
| commit | d51db74e5f9c0be32cbd0cfeeff0797a74cfd4ba (patch) | |
| tree | 140d3d78d10e4ec6405c364f7a6936a7a07086a5 /win/tclWinFile.c | |
| parent | a0d1a202239c64ab548f9d515bba530fb475d743 (diff) | |
| download | tcl-d51db74e5f9c0be32cbd0cfeeff0797a74cfd4ba.zip tcl-d51db74e5f9c0be32cbd0cfeeff0797a74cfd4ba.tar.gz tcl-d51db74e5f9c0be32cbd0cfeeff0797a74cfd4ba.tar.bz2 | |
reverted earlier rename from tcl*Stubs to
tcl*ConstStubs, it's not necessary at all.
tclEnsemble.c: Fix signed-unsigned mismatch
make tclWinProcs "const"
Add first part of mslu support,
See [Feature Request #2819611]
Diffstat (limited to 'win/tclWinFile.c')
| -rw-r--r-- | win/tclWinFile.c | 12 |
1 files changed, 6 insertions, 6 deletions
diff --git a/win/tclWinFile.c b/win/tclWinFile.c index f18ca7e..57a9aef 100644 --- a/win/tclWinFile.c +++ b/win/tclWinFile.c @@ -11,7 +11,7 @@ * See the file "license.terms" for information on usage and redistribution of * this file, and for a DISCLAIMER OF ALL WARRANTIES. * - * RCS: @(#) $Id: tclWinFile.c,v 1.102 2010/01/13 06:46:56 nijtmans Exp $ + * RCS: @(#) $Id: tclWinFile.c,v 1.103 2010/02/15 22:56:19 nijtmans Exp $ */ /* #define _WIN32_WINNT 0x0500 */ @@ -1003,7 +1003,7 @@ TclpMatchInDirectory( dirName = Tcl_DStringAppend(&dsOrig, "*.*", 3); } - native = Tcl_WinUtfToTChar(dirName, -1, &ds); + native = tclWinProcs->utf2tchar(dirName, -1, &ds); if (tclWinProcs->findFirstFileExProc == NULL || (types == NULL) || (types->type != TCL_GLOB_TYPE_DIR)) { handle = tclWinProcs->findFirstFileProc(native, &data); @@ -2225,7 +2225,7 @@ NativeDev( } else { p++; } - nativeVol = Tcl_WinUtfToTChar(fullPath, p - fullPath, &volString); + nativeVol = tclWinProcs->utf2tchar(fullPath, p - fullPath, &volString); dw = (DWORD) -1; tclWinProcs->getVolumeInformationProc(nativeVol, NULL, 0, &dw, NULL, NULL, NULL, 0); @@ -2750,7 +2750,7 @@ TclpObjNormalizePath( */ WIN32_FILE_ATTRIBUTE_DATA data; - const char *nativePath = Tcl_WinUtfToTChar(path, + const char *nativePath = tclWinProcs->utf2tchar(path, currentPathEndPosition - path, &ds); if (tclWinProcs->getFileAttributesExProc(nativePath, @@ -2945,7 +2945,7 @@ TclpObjNormalizePath( if (1) { WCHAR wpath[MAX_PATH]; const char *nativePath = - Tcl_WinUtfToTChar(path, lastValidPathEnd - path, &ds); + tclWinProcs->utf2tchar(path, lastValidPathEnd - path, &ds); DWORD wpathlen = tclWinProcs->getLongPathNameProc(nativePath, (TCHAR *) wpath, MAX_PATH); @@ -3248,7 +3248,7 @@ TclNativeCreateNativeRep( } } } - Tcl_WinUtfToTChar(str, len, &ds); + tclWinProcs->utf2tchar(str, len, &ds); if (tclWinProcs->useWide) { len = Tcl_DStringLength(&ds) + sizeof(WCHAR); } else { |