diff options
author | nijtmans <nijtmans> | 2010-03-07 14:39:25 (GMT) |
---|---|---|
committer | nijtmans <nijtmans> | 2010-03-07 14:39:25 (GMT) |
commit | 646fc65d90e21ea34b47fee9ef22f8fbaf4e40ca (patch) | |
tree | 613fc83e151efdbb14c37fbfb42d5f8aa355642d /win/tclWinFCmd.c | |
parent | e0f4b9aef0aed9b336779d768d41cf8fba52f137 (diff) | |
download | tcl-646fc65d90e21ea34b47fee9ef22f8fbaf4e40ca.zip tcl-646fc65d90e21ea34b47fee9ef22f8fbaf4e40ca.tar.gz tcl-646fc65d90e21ea34b47fee9ef22f8fbaf4e40ca.tar.bz2 |
test that tclOO stubs are present in stub library
Applied missing part of [Patch 2961556]
Change all tclWinProcs signatures to use
TCHAR* in stead of WCHAR*. This is meant
as preparation to make [Enh 2965056]
possible at all.
Diffstat (limited to 'win/tclWinFCmd.c')
-rw-r--r-- | win/tclWinFCmd.c | 16 |
1 files changed, 8 insertions, 8 deletions
diff --git a/win/tclWinFCmd.c b/win/tclWinFCmd.c index a60ea61..6fa7441 100644 --- a/win/tclWinFCmd.c +++ b/win/tclWinFCmd.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: tclWinFCmd.c,v 1.60 2010/02/15 23:10:47 nijtmans Exp $ + * RCS: @(#) $Id: tclWinFCmd.c,v 1.61 2010/03/07 14:39:25 nijtmans Exp $ */ #include "tclWinInt.h" @@ -328,8 +328,8 @@ DoRenameFile( TCHAR *nativeSrcRest, *nativeDstRest; const char **srcArgv, **dstArgv; int size, srcArgc, dstArgc; - WCHAR nativeSrcPath[MAX_PATH]; - WCHAR nativeDstPath[MAX_PATH]; + TCHAR nativeSrcPath[MAX_PATH*2]; + TCHAR nativeDstPath[MAX_PATH*2]; Tcl_DString srcString, dstString; const char *src, *dst; @@ -343,11 +343,11 @@ DoRenameFile( if ((size == 0) || (size > MAX_PATH)) { return TCL_ERROR; } - tclWinProcs->charLowerProc((TCHAR *) nativeSrcPath); - tclWinProcs->charLowerProc((TCHAR *) nativeDstPath); + tclWinProcs->charLowerProc(nativeSrcPath); + tclWinProcs->charLowerProc(nativeDstPath); - src = tclWinProcs->tchar2utf((TCHAR *) nativeSrcPath, -1, &srcString); - dst = tclWinProcs->tchar2utf((TCHAR *) nativeDstPath, -1, &dstString); + src = tclWinProcs->tchar2utf(nativeSrcPath, -1, &srcString); + dst = tclWinProcs->tchar2utf(nativeDstPath, -1, &dstString); /* * Check whether the destination path is actually inside the @@ -465,7 +465,7 @@ DoRenameFile( TCHAR *nativeRest, *nativeTmp, *nativePrefix; int result, size; - WCHAR tempBuf[MAX_PATH]; + TCHAR tempBuf[MAX_PATH*2]; size = tclWinProcs->getFullPathNameProc(nativeDst, MAX_PATH, tempBuf, &nativeRest); |