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/tclWinPipe.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/tclWinPipe.c')
-rw-r--r-- | win/tclWinPipe.c | 12 |
1 files changed, 6 insertions, 6 deletions
diff --git a/win/tclWinPipe.c b/win/tclWinPipe.c index fda862e..b7dddaa 100644 --- a/win/tclWinPipe.c +++ b/win/tclWinPipe.c @@ -9,7 +9,7 @@ * See the file "license.terms" for information on usage and redistribution of * this file, and for a DISCLAIMER OF ALL WARRANTIES. * - * RCS: @(#) $Id: tclWinPipe.c,v 1.74 2010/01/22 13:02:50 nijtmans Exp $ + * RCS: @(#) $Id: tclWinPipe.c,v 1.75 2010/02/15 22:56:19 nijtmans Exp $ */ #include "tclWinInt.h" @@ -597,7 +597,7 @@ TclpOpenFile( break; } - nativePath = Tcl_WinUtfToTChar(path, -1, &ds); + nativePath = tclWinProcs->utf2tchar(path, -1, &ds); /* * If the file is not being created, use the existing file attributes. @@ -1399,7 +1399,7 @@ ApplicationType( for (i = 0; i < (int) (sizeof(extensions) / sizeof(extensions[0])); i++) { Tcl_DStringSetLength(&nameBuf, nameLen); Tcl_DStringAppend(&nameBuf, extensions[i], -1); - nativeName = Tcl_WinUtfToTChar(Tcl_DStringValue(&nameBuf), + nativeName = tclWinProcs->utf2tchar(Tcl_DStringValue(&nameBuf), Tcl_DStringLength(&nameBuf), &ds); found = tclWinProcs->searchPathProc(NULL, nativeName, NULL, MAX_PATH, nativeFullPath, &rest); @@ -1624,7 +1624,7 @@ BuildCommandLine( } } Tcl_DStringFree(linePtr); - Tcl_WinUtfToTChar(Tcl_DStringValue(&ds), Tcl_DStringLength(&ds), linePtr); + tclWinProcs->utf2tchar(Tcl_DStringValue(&ds), Tcl_DStringLength(&ds), linePtr); Tcl_DStringFree(&ds); } @@ -3196,7 +3196,7 @@ TclpOpenTemporaryFile( if (basenameObj) { const char *string = Tcl_GetStringFromObj(basenameObj, &length); - Tcl_WinUtfToTChar(string, length, &buf); + tclWinProcs->utf2tchar(string, length, &buf); memcpy(namePtr, Tcl_DStringValue(&buf), Tcl_DStringLength(&buf)); namePtr += Tcl_DStringLength(&buf); Tcl_DStringFree(&buf); @@ -3217,7 +3217,7 @@ TclpOpenTemporaryFile( sprintf(number, "%d.TMP", counter); counter = (unsigned short) (counter + 1); - Tcl_WinUtfToTChar(number, strlen(number), &buf); + tclWinProcs->utf2tchar(number, strlen(number), &buf); memcpy(namePtr, Tcl_DStringValue(&buf), Tcl_DStringLength(&buf)); if (tclWinProcs->useWide) { *(WCHAR *)(namePtr + Tcl_DStringLength(&buf) + 1) = '\0'; |